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I .   INTRODUCTION 

A .   BACKGROUND 

The  human  interface  to  a  computer  program  has  always  been 
very  important  and  is  the  subject  of  countless  books, 
studies  and  other  documents.  A  good  interface,  one  that  is 
"user-friendly",  has  often  been  the  major  feature  of  a 
program,  and  its  presence  has  often  overcome  the 
disadvantages  of  a  mediocre,  or  in  some  cases,  poor  program. 
Additionally,  what  was  a  good  or  excellent  interface  in  the 
past  is  now  frequently  archaic  and  is  defined  as  poor  or 
merely  satisfactory.  When  terminology  and  devices  such  as 
graphics,  color  video,  icons,  windows,  mouse  input,  voice 
recognition,  light  pens,  touch  screens,  and  intelligent 
terminals  were  unknown  or  considered  exotic,  typed  text  input 
predominated  in  input  methodology  for  general  use. 
Frequently,  even  when  new  interface  technology  became 
affordable,  existing  systems  couldn't  be  adapted  due  to  poor 
original  program  design  or  expense  of  conversion. 

A  poor  interface  is  usually  obvious  to  the  user,  and  with 
perseverance,  will  be  overcome.  If  the  harm  caused  was  only 
user  frustration,  little  would  be  gained  by  trying  to  improve 
an  interface.  Unfortunately,  a  poor  interface,  while  perhaps 
being  exactly  what  a  computer  needs  to  perform  its  functions 
correctly,  causes  a  user  to  perform  inefficiently.   This  is 
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particularly   significant   because   increased   user   (human) 
efficiency  is  the  primary  goal  of  most  computer  programs. 

User  inefficiencies,  while  not  desirable,  can  be 
tolerated  in  many  minor  or  simple  applications.  It's  just 
not  cost  effective  to  spend  large  sums  of  money  to  create  a 
sophisticated  interface  in  those  cases.  But,  if  an  interface 
is  not  user-friendly,  or  to  be  more  precise,  "user- 
efficient",  the  more  complex  subjects  and  applications  will 
cause  disproportionately  greater  user  inefficiencies,  making 
it  worthwhile  to  find  new  ways  to  enhance  the  interface. 

B.  APPLICATION 

The  subject  application  of  this  thesis,  Research 
Evaluation  Systems  Analysis  (RESA)  simulation,  is  a  wargaming 
simulation  utilized  by  the  Naval  Postgraduate  School  to  do 
research  on  battle  procedures  and  techniques,  weapons  use 
and  wargame  simulation  itself.  RESA  operates  on  the  Digital 
Equipment  Corporation  VAX  11  series  minicomputer.  User  input 
(game  commands)  is  typed  text  entry,  often  in  response  to 
program  prompts  at  VT-100/102  "dumb"  terminals.  RAMTEK 
graphics  terminals  provide  geo-graphic  color  displays.  A 
typical  user  is  a  graduate  student  who  has  no  prior  knowledge 
of  RESA,  and,  probably  little,  or  no  experience  in  any  form 
of  wargaming  or  computer  simulation.  Additionally,  few  have 
any  significant  experience  in  interfacing  with  mainframe 
computers  or  sophisticated  mainframe  programs. 


Because  of  the  limited  time  a  typical  team  of  users  will 
actually  be  using  RESA,  efficiency  in  interfacing  is 
extremely  critical.  Several  factors  militate  against  this 
desired  efficiency. 

1 .  Text  Entry  Requirement 

All  input,  no  matter  how  simple  or  trivial,  must  be 
typed  on  a  keyboard.  Spelling  must  be  exactly  correct. 
Since  user  spelling  and  typing  abilities  vary  widely,  the 
progress  of  a  simulation  exercise  is  often  dictated  by  the 
input  speed  of  a  lesser  skilled  team  member.  Spelling  help 
is  available  on  the  input  terminal,  but  frequently  requires  a 
diversion  from  the  command  input  sequence. 

2 .  Command  Syntax  Knowledge  Needed 

While  RESA  commands  are  one  word,  and  are  usually 
descriptive  of  the  action  being  directed,  they  must  be 
entered  in  the  correct  context.  Additionally,  sequences  of 
commands  must  frequently  be  used  to  accomplish  certain 
actions,  and  the  sequence  must  be  exactly  correct.  These 
sequences  do  not  always  lend  themselves  to  easy  memorization, 
thus  requiring  written  user  guides,  or  constant  diversions 
from  the  command  input  sequence  to  get  limited  on-line  help. 

3 .  Separate  Terminals  For  Different  Functions 
Currently,  the  users  of  RESA  require  a  minimum  of 

three  separate  terminals  to  conduct  the  simulation.  One 
terminal  is  for  user  control  of  the  game  which  provides  for 
command  input  and  computer  response.    Another  terminal  is 


necessary  for  display  of  the  various  status  boards  which  give 
current  game  and  unit  (ships,  planes,  etc)  data.  A  third 
terminal  is  used  for  display  of  color  graphics  which  provide 
a  birds-eye  view  of  the  current  scenario.  If  a  user  wants  to 
be  informed  about  a  facet  of  the  simulation  or  enter  a 
command,  he  must  physically  go  to  the  appropriate  terminal 
and  interrupt  the  user  at  that  terminal  to  conduct  the 
desired  activity. 

From  examination  of  the  above  factors,  it  is  evident  that 
users  spend  a  considerable  amount  of  time  on  the  wargame 
input  process,  time  that  should  be  spent  on  the  simulation 
strategy.  It  is  to  improve  this  interface,  thereby 
increasing  user  efficiency,  that  enhanced  input  methodology 
is  constantly  being  studied. 


II.  SYSTEM  REQUIREMENTS 

A .   HARDWARE 

In  selecting  the  hardware  to  prove  the  concept  of  a 
visual  interface  as  a  more  efficient  method  to  control  RESA, 
several  criterion  were  considered  critical  to  success  of  the 
Proof  of  Concept. 

1 .  Visual  Interface  Capability 

The  system  selected  would  have  to  be  capable  of 
iconographies,  menus,  and  other  graphics  displays.  Input 
devices  such  as  the  mouse,  trackball,  joystick,  and  touch 
tablet,  as  well  as  the  standard  keyboard,  must  be  supported. 
The  implication,  but  not  absolute  requirement,  of  this 
required  capability  is  that  the  system  must  support  "event- 
driven"  programming.  "Event-driven"  is  the  term  used  to 
describe  the  computer's  (both  hardware  and  software)  method 
of  handling  other  than  typed  text  input.  It  is  most  often 
used  in  reference  to  mouse/menu  capabilities,  as  implemented 
on  the  ATARI  ST  and  Macintosh  computers . 

2 .  Advanced  Technology 

While  some  older  systems  are  able  to  do  much  of  what 
is  described  in  A.l.  above,  the  visual  interface  is  done  by 
"brute  force"  and  is  frequently  stretching  the  limits  of 
that  system's  capability.  State-of-the-art  technology  means 
that  the  system  has  been  designed,  and  therefore  optimized, 
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for  the  display  requirements  stated  above.  An  advanced 
technology  system  would  also  provide  for  expansion  more 
easily  than  a  system  already  dated. 

3 .  Memory 

Graphics  require  large  amounts  of  memory  and  high 
machine  speed  to  produce  good  displays.  A  minimum  of  one 
megabyte  of  memory  would  ensure  that,  for  this  application, 
memory  limitations  were  not  a  factor.  Future  system 
expansion  would  also  be  facilitated. 

4 .  Color  Display 

For  screen  displays  that  are  mostly  text,  color  would 
not  be  necessary,  but  would  greatly  enhance  the  interface. 
To  allow  creation  of  100%  graphic  displays,  such  as  a 
geographic  battle  group  display,  color  would  be  necessary. 

5 .  Cost 

Finding  systems  with  the  above  attributes  isn't 
particularly  difficult;  the  issue  is  one  of  money.  The 
system  selected  must  be  inexpensive  enough  to  replace  the 
existing  "dumb"  terminals  at  a  reasonable  cost.  Studies  to 
evaluate  system  cost  versus  user  efficiency  are  not  part  of 
this  document.  Relative  system  cost  is  the  selection 
criteria  used  here. 

B .   SOFTWARE 

The  software  criteria,  while  much  less  critical  than  the 
hardware  criteria,  must  still  meet  certain  standards  to 
enable  this  Proof  of  Concept  to  be  successful. 
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1 .   Access  To  Hardware  Potential 

Software  must  be  capable  of  using  all  hardware 
capabilities.  Emphasis  will  be  on  graphics  and  color,  not 
numeric  calculations. 

2  .   Ease  Of  Use 

Many  current  languages  are  capable  enough  to  do 
almost  anything  asked  of  them,  _if  enough  time  and  skilled 
programmers  are  available.  For  this  Proof  of  Concept,  time 
is  limited,  and  professional  programmers  will  not  be 
available . 

3 .  Speed 

Even  if  hardware  has  been  selected  to  maximize 
graphic  displays,  the  software  must  execute  quickly  to  fully 
use  that  capability. 

4 .  Cost 

The  software  must  be  chosen  using  criteria  that 
provide  the  above  software  capabilities  as  inexpensively  as 
possible . 

C.   THE  DECISION 

The  ST  series  of  computers  by  the  ATARI  Corporation  was 
chosen  to  meet  the  above  hardware  needs.  Various  versions 
are  available  in  500Kb  to  4Mb  versions,  use  Motorola's  68000 
chip  (16-bit)  technology,  use  Digital  Research's  GEM  icon  / 
menu  /  mouse  operating  interface,  have  high  resolution  color 


graphics,  are  readily  available  across  the  U.S.,  and  are  the 
least  expensive  systems,  by  far,  that  meet  the  stated 
criteria . 

The  software  chosen  was  GFA  BASIC,  an  inexpensive  BASIC 
very  similar  to  TURBO-BASIC  in  the  MS-DOS  world.  It  is  very 
easy  to  use,  accesses  all  machine  capabilities,  and  when 
compiled,  is  faster  than  PASCAL,  and  rivals  the  "C"  language 
in  speed  of  execution. 
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III.   THE  CONCEPT 

A.   THE  PROBLEM 

Interaction  with  the  RESA  simulation  using  the  current 
methodology  is  quite  inefficient.  Commands,  or  sequences  of 
commands  called  orders,  are  typed  in  using  a  keyboard  at  a 
dedicated  "dumb"  input  terminal.  For  most  typical  users, 
this  means  frequent  time-consuming  interruptions  to  obtain 
absolutely  correct  commands,  call  signs,  weapons  names, 
flight  and  track  data,  etc.,  either  from  written  user  guides, 
or  from  a  second  terminal.  In  addition  to  simple  spelling 
mistakes,  syntax  errors  are  frequently  made  when  forming 
orders . 

In  order  to  keep  a  using  team  abreast  of  the  scenario,  a 
second  (dumb)  terminal  must  be  configured  as  a  status  board 
terminal,  is  not  available  as  an  input  terminal,  and  requires 
an  additional  player. 

A  third  position  must  be  used  if  a  non-textual  view  of 
the  situation  is  desired.  Two  Ramtek  color  graphics  monitors 
provide  Geotactical  Displays  which  give  the  user  a  graphical 
representation  of  the  RESA  simulation  from  an  overhead 
perspective,  much  like  a  radar  PPI  display.  Unfortunately, 
the  Geotactical  Display  is  not  controlled  at  the  color 
monitor  itself,  but  at  a  physically  separate  (text)  input 
terminal.    Only  one  representation  at  a  time  is  normally 
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available  to  each  of  the  four  user  teams .  These  four 
graphics  processes  make  a  substantial  burden  on  the  single 
VAX  computer  which  hosts  the  simulation.  Since  it  is  a 
fairly  slow  process  to  change  and  redisplay  the  Geotactical 
Display,  compromises  are  inevitably  made  in  selecting  the 
scale  or  symbology  for  display.  It  is  unarguable  that  the 
graphical  representation  best  suited  to  prosecute  the  outer 
air  battle  is  not  the  one  best  suited  for  battle  group  inner 
missile  defense. 

The  time  loss  and  distractions  that  result  from  use  of 
the  current  interface  detract  considerably  from  the  user' s 
attention  to  the  actual  battle  simulation  decisions  and 
strategy . 

B.   THE  PROGRESS 

This  document  is  a  Proof  of  Concept  of  a  visual 
interface,  menu  and  "mouse"  input  method  for  the  RESA 
simulation,  and  is  a  logical  progression  of  earlier  interface 
studies.  The  following  is  a  short  synopsis  of  the 
progression  of  studies  leading  to  this  thesis: 

[Manson,  1985] --Conducted  experiment  to  compare  speech 
and  keyboard  inputs  to  Naval  Warfare  Interactive  Simulation 
System  (NWISS,  predecessor  to  RESA)  in  adverse  conditions  of 
lighting  and  noise.  While  spelling  and  typing  problems  may 
be  solved  by  this  interface  method,  the  other  input  factors 
remain  unsolved.   Additionally,  speech  recognition  input  adds 
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the  complication  of  inaccuracies  in  input  due  to  current 
equipment  limitations. 

[Irving,  1986] — Project  to  use  A  Macintosh  microcomputer 
as  a  command  input  terminal  for  NWISS.  Use  was  made  of  the 
"windowing"  and  menu/mouse  selection  methodology  to  avoid 
command  syntax  errors  and  speed  command  entry. 

[Sweeney,  1986] --Comparison  of  a  "visual"  Macintosh 
interface  and  voice  command  input  to  the  standard  keyboard 
entry  method  was  made.  Continuous  voice  input  was  favored 
over  the  visual  interface  if  training  time  was  not  a 
significant  restriction. 

[LeFever,  1987] — Investigated  further  the  use  of  voice 
input  methods  to  RESA,  using  the  VOTAN  continuous  speech 
recognizer.  Explored  the  complications  arising  from  the  need 
to  categorize  the  game  commands,  and  the  inability  to 
establish  a  tree  architecture  for  correct  command  structure. 

[Lower,  1987] — Examined  enhancement  of  player  input  to 
the  Joint  Theater-Level  Simulation  (JTLS)  by  using  a  visual 
interface  method  implemented  on  a  desktop  microcomputer,  an 
Apple  Macintosh.  Showed  the  feasibility  of  coding  of  a 
prototype  interface  (in  Pascal) ,  and  laid  out  a  sample 
program  skeletal  structure.  The  input  process  was 
streamlined  somewhat,  but  coding  was  difficult  and 
incomplete . 


11 


[Adams,  1987] --Demonstrated  the  use  of  graphics  and 
screen  menus  for  the  display  of  command  and  control 
information  on  a  dedicated  color  graphics  workstation,  the 
IRIS.  User  input  to  control  a  simulation  was  not  addressed 
here,  but  display  concepts  were  evolutionary  and  menus  as 
item  selectors  were  effectively  used. 

[Copeland,  1987] --Pursued  the  concept  of  the  visual 
interface  as  primary  input  methodology.  Windowing  and 
menu/mouse  usage,  as  normally  implemented  on  a  Macintosh,  was 
applied  to  the  JTLS  and  Battle  Group  Tactical  Trainer  (BGTT) 
user  interfaces.  The  framework  for  a  generic  architecture 
for  this  type  of  interface  was  discussed.  Desirable  features 
of  a  visual  interface  were  also  discussed. 

[Stevens,  1987] — Demonstrated  the  feasibility  of 
improving  and  enhancing  the  user  interface  of  the  BGTT  by 
developing  a  visual  interface  prototype.  Code  for  a  small 
subset  of  the  user  I/O  process  was  written.  MACTRAN  77,  a 
Macintosh  version  of  FORTRAN  77,  was  used  as  the  language.  A 
communications  driver  was  not  made  available,  so  actual 
interface  with  RESA  on  the  VAX  was  not  accomplished. 

All  previous  programming  efforts  resulted  in  incomplete 
work  which  was  innovative,  but  not  a  full  implementation  of 
the  visual  concept.  This  Proof  of  Concept  effort  is  an 
extensive  and  complete  program,  which,  when  interfaced  to  the 
RESA  host  computer,  promises  a  fast  and  efficient  interface 
capability  not  previously  achieved. 
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C.  THE  PLAN 

A  full-featured,  efficient  interface  for  RESA  would  serve 
several  functions,  and  should  be  developed  in  several  logical 
phases .  Each  of  the  following  functions  is  currently  being 
done,  but  it  takes  at  least  three  different  terminals  to 
accomplish  it.  A  complete  "smart"  interface  program  would 
handle  all  of  these  functions  from  a  single  terminal,  with 
immediate  access  to  each  function  through  the  menu  system. 

1.  System  Operation — The  ability  for  system  operators  to 
set  up  and  start  RESA,  and  for  "umpires"  to  control 
simulation  events. 

2.  Command  Input--The  ability  to  quickly  create  error- 
free  command  strings . 

3.  Communication --The  ability  to  allow  actual  data  flow 
between  the  user  and  RESA. 

4.  Status  Boards—The  ability  to  display  the  currently 
generated  data  from  the  RESA  simulation. 

5.  Geo-graphics--The  ability  to  display  the  current 
scenario  and/or  status  of  units  of  the  battle  group  in  color 
graphics . 

Time  and  scope  limit  this  Proof  of  Concept  to  Phases  2 

and  3,  with  some  work  on  1. 
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IV.  THE  RESA  INTERFACE  PROGRAM  (RIP) 

A.  OVERVIEW 

The  RIP  was  designed  to  be  a  smart  interface  between  the 
user  and  RESA.  It  operates  entirely  on  the  ATARI  ST  as  a 
background  program,  and  can  not  be  distinguished  by  the  VAX 
as  other  than  a  "dumb"  terminal.  When  implemented  as  a  full- 
featured  program,  the  system  operator,  during  boot-up,  will 
be  able  to  easily  configure  (Figure  1)  the  terminal  according 
to  different  users'  skill  levels.  No  user  access  to  the 
program  code  is  required  or  desireable.  The  command 
sequences,  or  orders,  are  created  in  their  entirety  on  the 
ST  and  then  sent  to  the  VAX. 

Although  their  use  was  not  precluded,  no  attempt  to  use 
the  RESA  error-checking  or  on-line  help  capabilities  was 
made,  as  this  would  unnecessarily  complicate  the  RIP.  The 
inherent  characteristics  of  the  ST's  drop-down  menu  system 
make  on-line  help  largely  redundant,  and  keyboard  entry 
error-checking  was  handled  by  the  RIP. 

B.  PROGRAM  OPERATION 

In  the  current  version  of  the  program,  the  operator  is 
presented  an  interface  which  runs  rapidly,  provides  error 
checking  and  a  logical  sequencing  of  the  events  necessary  to 
build  any  required  order  and  send  it  as  an  error-free 
product.   The  code  runs  very  swiftly  such  that  no  delay  is 
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Mel  cone  to  the  RESD  Interface  Progran 


USER  TVPE 

A.  Systen  operator 

B.  Experienced  user 

C.  New  user 

E]m  rn 


\ 


Naval   Postgraduate  School 


Figure  1 
Configuration  display  screen. 

generated  by  the  computer  interface.  Capabilities  of  the 
ATARI  have  been  used  to  present  windows  and  boxes  which 
remain  until  a  selection  has  been  made.  Less  hand  motion  is 
required  on  the  mouse  than  with  previous  attempts  on  ■  the 
Macintosh.  The  user  is  free  to  move  from  mode  to  mode  at  any 
time  unless  such  a  move  would  be  counter-productive,  in  which 
case  it  is  prohibited,  and  audio  cues  are  generated  when 
inadvisable  attempts  are  made.  A  correct  degree  of 
automation  has  been  attained  considering  the  requirement  for 
alpha-numeric  input  variability  which  is  high  during  game 
play  and  generally  unknown  in  scope  at  game  outset.  In 
addition,  the  work  surface  is  attractive  and  easy  to  see. 
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The  user  sits  at  a  terminal  where  the  RIP  is  running. 
RESA  system  operators  would  normally  be  the  ones  to  have 
started  the  system  and  activated  each  terminal,  but  RIP 
initialization  on  the  ST  is  simple  enough  for  ordinary  users. 

The  starting  screen  display  (Figure  2)  will  provide  the 
Main  Menu,  one  of  the  three  primary  control  menus.  The  other 
two  are:  Force  Menu  A  and  Force  Menu  B.  Access  to  each 
primary  menu  is  available  from  each  other  primary  menu  using 
the  "new  Menu"  menu  bar  selection.  Figure  3  shows  the  "drop- 
down" menu  choices  for  "new  Menu"  available  during  a  Main 
Menu  screen  display. 

Main  0  new  Menu   ASTAB   GRAPHICS   COMMS   UMPIRE 


r 


CANCEL  connand 


EXECUTE.comand 


Figure  2 
Starting  display  screen 
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Main  $ 


new  Menu 


ASTAB   GRAPHICS   COMMS   UMPIRE 


FORCE  Menu  A  0  Maneuvers  |  sensors  I  engagements 
FORCE  Menu  B  $    aircraft  I  subnarines  I  force  conns 


\ 


EXECUTE  contend 


Figure  3 
Primary  menu  selection  screen 


Orders  are  "built"  by  successively  selecting  menu 
headings  and  using  the  "mouse"  to  select  desired  commands. 
As  commands  are  selected,  the  RIP  branches  programmatically 
to  ask  for  necessary  data  or  additional  commands.  Users  are 
directed  to  make  a  specific  choice  from  the  screen  or  a 
secondary  menu,  or  to  use  the  keyboard  to  enter  alpha-numeric 
characters.  Considerable  error-checking  is  performed  if  the 
keyboard  is  used.  As  they  are  being  built,  orders  are 
displayed  in  a  command  box  at  the  bottom  of  the  screen  as 
shown  in  Figure  4.  When  an  order  is  syntactically  correct, 
the  user  is  given  the  choice  to  Execute  or  Cancel  it. 
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Execution  of  partial  orders  is  not  allowed,  but  Cancellation 
at  any  time  is  possible  by  pressing  the  Control  /  Shift  / 
Alternate  keys  simultaneously. 

Force  A$   new  Menu  FOR  xxx   MANEUVERS  SENSORS   ENGAGE 


FOR  KITTY  PROCEED 

Enter  course  (8-359*  True):  234 

Enter  distance  op  range  (1-9999  mi):  5678 

Enter  speed  (1-9999  kts):  888 


CANCEL  connand FOR  KITTY  |  EXECUTE  conwand 

FOR  KITTV  PROCEED  234  5678  888  * 


E^rarcar;e»t7i^-as3s»TttNi»MiMi»M*)iii<irtfrj^*^  niifiriiiHiiiwnwranaaMai 


Figure  4 
Example  of  commands  built  to  form  an  order. 
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C.   THE  CODE 

The  BASIC  language  allows  programmers  nearly  unlimited 
latitude  in  program  structure,  and  when  programmer  discipline 
is  minimal,  BASIC  programs  frequently  look  more  like  free- 
form  art  than  functional  software.  To  allow  others  to  easily 
understand  and  enhance  the  RIP,  a  rigid  structure  (Figure  5) 
and  logical  program  flow  was  used  throughout.  The  program  is 
segmented  into  mainly  short,  similar  procedures.  Repetitive 
functions  are  contained  in  common  procedures  whenever 
possible.   The  RIP  Code  is  included  as  Appendix  A. 


MAIN  PROGRAM 
INITIALIZES  VARIABLES  AND  CALLS  MAJN  MENU. 


MENUS 
PRIMARY,  SECONDARY  AND  TERTIARY  MENUS. 


MENU  READ 


BRANCHES  TO  INITIAL  COMMAND  PROCEDURE. 


GENERAL 
COMMON  &  MULTI-USE  .  INPUT  DISPLAY.  DATA  FLOW. 


COMMAND  PROCEDURES 


PROCEDURES  SPECIFIC  TO  COMMANDS 


Figure  5 
RESA  Interface  Program  Structure 
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Generally,  program  flow  (Figure  6)  is  as  follows 

1.  Display  a  primary  menu. 

2.  Wait  for  menu  selection. 

3.  Branch  to  a  menu_read  procedure. 

4.  Branch  to  procedure  for  specific  command. 

5.  Follow  command  "tree"  until  order  is  complete. 

6.  Wait  to  Execute  or  Cancel  order. 

7.  Display  a  primary  menu  (back  to  step  1) . 


INITIALIZE 


Figure  6 
RESA  Interface  Program  Flowchart 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 

A.   CONCLUSIONS 

The  concept  to  be  proven  was  that  an  inexpensive  color 
graphics  microcomputer  could  serve  as  an  "intelligent" 
terminal  for  the  RESA  wargaming  simulation.  Success  depended 
on  whether  the  command  structure  of  RESA  could  be  effectively 
represented  in  code  and  implemented  on  a  system  meeting  the 
aforementioned  requirements.  The  operating  program  (RIP) 
that  has  been  created  generates  such  an  interface  which 
operates  rapidly,  and  can  incorporate  the  entire  command 
structure  for  RESA  with  room  for  future  expansion.  In 
addition,  the  chosen  hardware/software  combination  provides  a 
windowing  environment  which  can  be  used  to  support  all  RESA 
player  functions  on  one  very  cost-effective  terminal. 

The  program  runs  very  efficiently  and  demonstrates  many 
visual  interface  criteria  developed  by  previous  researchers 
as  well  as  improving  on  many  previous  suggestions.  The 
concept  has  been  shown  to  be  not  only  practical,  but 
available  for  use  and  robust  where  future  changes  are 
concerned.  While  extensive  user  testing  has  not  been 
attempted,  and  many  enhancements  remain  unfinished, 
preliminary  indications  are  that  considerable  user  efficiency 
will  be  gained  by  use  of  the  user  interface  developed  in  this 
paper. 
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B.   RECOMMENDATIONS  FOR  FURTHER  STUDY 

In  order  to  bring  the  process  started  here  to  its  optimal 
conclusion,  and  allow  the  RIP  to  produce  the  kind  of 
efficiencies  that  are  possible,  several  additional  steps  must 
be  taken. 

1.  Accomplish  the  data  interface  with  the  VAX/RESA  system 
and  ensure  VAX-generated  messages  are  automatically 
displayed  in  "attention"  windows . 

2 .  Conduct  studies  of  the  actual  efficiency  gain  from 
using  the  RIP,  or  portions  of  it. 

3 .  Conduct  user  experiments  to  fully  optimize  RIP 
displays  and  interactive  usage. 

Having  accomplished  the  interface,  determine  the 
techniques  required  and  code  changes  to  route  four  types  of 
RESA  information  to  the  same  serial  port.  Then  enhance  the 
RIP  in  the  following  fashion. 

First,  write  code  for  display  of  the  AS  TABS .  Each  one 
could  be  called  from  a  menu  and  displayed  in  a  separate 
window  while  still  sending  orders  to  RESA.  It  is  even  quite 
possible  to  use  the  mouse  cursor  to  point  directly  at  ASTAB 
items  for  input  in  the  command  structure,  thereby  reducing 
the  slower  keyboard  usage  even  further.  New  status  displays 
could  be  developed  and  made  a  permanent  part  of  the  RIP,  or 
provisions  could  be  made  to  allow  each  user  to  create  his 
own.   Test  the  code  and  integrate  into  the  RIP. 
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Write  code  for  display  of  Geo-graphics .  Steps  to 
enhance  the  graphics  display  would  be  similar  to  those 
described  for  the  ASTABS .  Additionally,  unit  movement  or 
positioning  commands  could  be  done  as  simply  as  pointing  at 
the  unit  and  pointing  where  you  wanted  it  to  go.  Features 
like  those  in  microcomputer  "paint  &  draw"  programs  could  be 
included  to  allow  for  initial  positioning  of  forces.  Test 
the  code  and  integrate  into  the  RIP. 

Write  code  to  create  different  interfaces  for  different 
skill  levels  of  users,  i.e.,  System  Operator,  Umpire, 
Experienced  User,  Novice  User.  This  would  allow  only  the 
commands  that  the  particular  user  needed  to  be  accessible,  or 
various  levels  of  Help  to  be  automatically  provided.  Test 
the  code  and  integrate  into  the  RIP . 

Add  peripheral  enhancements.  Utility  programs  can  be 
installed  during  boot-up  of  the  ATARI  ST,  and  used  by  simply 
touching  the  menu  bar  during  RIP  operation.  A  user  could 
have  instant  access  to  a  calculator,  notepad,  references  on 
ships  or  planes,  and/or  other  useful  functions. 

Finally,  explore  the  translation  of  the  RIP  to  the 
Enhanced  Naval  Warfare  Gaming  System  (ENWGS)  which  has  been 
selected  to  replace  the  Navy's  primary  wargaming  system.  Use 
of  this  concept  would  greatly  reduce  the  effort  needed  to 
operate  the  ENWGS  simulation  from  each  of  the  many  terminals 
currently  required,  and  reduce  the  cost  of  system 
requirements . 
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APPENDIX  A 

RESA  Interface  Program  Code  (RIP) 


1141444141414- Iil4l4l4l4li-.il  1144114141414141414141444141  il  iiii  —  —  44  ii  ii44JJ.iiil.aii4.ii  111141414111411141444141  411144  4 I44444441414ill44414l414i41_4l4l 

TrTrTr7T7r77  77TrTrTrttTt7TTr7T77  7T7TTrTrTrT7TrTrTr7TtrTTTrTrTTTTTTTr 

11 11 11  it  11  11_-4_14  ii  iiii  11 11  il  Oi  iiii  11 11  ii  il  ii  ii  01 11  li  11  44-11  41  44  Oi  44  ii  ii  ii  ii  il  4144  11 41 41 41 41 41 41 11  .U 1144 44 iiii  1141-U4l.il  44  44  41 1144 41 41 41 41 44 41 44  44 41 41 11 14 44 

WTTTTTrTT— TrrrTrTtttnTrTTTrTTTTTrTrTrTTTTTr  — TrTfTrTrTrnwTTTrTTrrrrTrTT«w##ttrrTrTrw 

MAIN  PROGRAM 

41  111!  —  —  iiii  41 -iiii  41  41  ii  J ._  ii  ii_t  1144  Hit  1- it  ill.  iiii  ill!  Jill  ill.  iiii  11  it  41  ill-  iiii  11  iiii  11 :iilililliiililliiliiililitli_tiiiliiiiili-  —  J-iiiiii 

Trfrrr— tttttttt— trftwTrTr  — —  TrrrTTrrTrTTTrrrTTTrrrTrTrTrwrrTTrrrrrrTrTrTrTrTT^ 

On  Break  Cont   !  deactivates  "break"  capability. 


@Init 

@User_type 
(?Save_blanks 
(?Draw_box 
@Main  menu 


!  for  initializing  &  dimensioning 
allows  choice  of  type  of  user;  NOT 
saves  blank  screen  areas  to  use  to 
draws  box  for  output  string 
main  menu 


YET  WRITTEN    ! 

clear   screen   after    inputs 


4i  li  41  il  11  ii  ii  i!4i  4i  41 41 41 11 11  ii  ii  41 4i  ii  11 11 11 11 11  it  Ji  ii  ii  41  il  ii  ii  il  ii  11  il  41 41 1141444144  41 1144  444111  44 114141  it  41 44  41 41 44  4144  41  4441444144  4441414441444141 

TTTTTrrrTr— TTTTTTTrTfTTTTTTTrTTTr —  Tr-rrTT— rr  tt  rr  tt -it  77  tt  7771-777777  Tr7T77TT7T7TTTTT7TTTn77  7r7T—  — 77777777777777^777777777777777777777777777777777777 

MENU   PROCEDURES 

41 44 11 11  li  11 44-1441 41 4i  41 41 41  ii  41  li  41 4i4i  41 41  ii  41 11  li  41 41 41 41 41 41 44  44  44  41  41 41 41 41 41 41 41  il  it  ii  ii  11  ii  4_  11 11 11 111111414111114441414141114141411141414141414141 
IT  IT  7777  77  —  —  TT  77  7777777777777777  77  7777  77  777777  77  77  77  77  77  TT  77  77  77  77  777777  TT  TT  77  77  77  TT  77  77  77  77  77  77  77  77  77  77  77  77  T7  77  77  77  77  77  77  77  77  T7  77  77  77  TT  77  TT  77  77  77  77  77  77 

Produces   dialog  box   to  enter    "type"    of  user;   WHEN  COMPLETE,    this    could 
allow  various   levels    of  access    to   the   system  commands. 

Procedure   User_type 

Cstr$="Welcome    to   the   RESA  Interface   Program." 

Cstr2$="Maval  Postgraduate   School" 

Deftext    1,0,0,13 

Text   120,50,400,Cstr$ 

Deftext    1,1,0,13 

Text  120,170,400,Cstr2$ 

Deftext  1,0,0,6         !##  resets  text  type  to  normal 

Mtxt$="     USER  TYPE  A.  System  operator  B.  Experienced  user  C.  New  user" 

Alert  2,Mtxt$,l,"  ABC  ",A 

Print  A 

Clr  A 
Return    !@User_type 


MAIN  Menu 


Procedure  Main_menu 
@Cclear_middle 
Void  Fre(O) 
Restore  Mmain_data 
For  1=0  To  90 

Read  3ar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 


!  clean  up  variables 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 
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Bar$(I)  =  IIM 
Bar$(I+l)="M 
Mmain_data : 
Data  Main  -C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 


!  tail  blanks  into  string 
!  ditto 


Data  new  Menu  , 

Data  FORCE  Menu  A  -»C  maneuvers   sensors   engagements 

Data 

Data  FORCE  Menu  B  -C  aircraft   submarines   force  comms 

Data - ,"" 

Data  ASTAB  ,-,  Bearing,  Classify,  CPA,  Designate  ,  Drop,  Print,  Show," 
i 

Data  GRAPHICS  ,-,  Plot,  Erase,  Center,  Radius,  Shift,  Label,  LOB 

Data  Mark  track,  Mark  bearing,  Unmark  track,  Unmark  bearing 

Data  Place,  Cancel,"" 
i 

Data  COMMS  ,-,  Inform,  Intell,  Message  ,"" 
i 

Data  UMPIRE  ,-,  Go,  Pause,  End 

Data  Copy,  Relocate,  Save,  Time,  Set 

Data  Enable,   Disable,  Expend,   Replenish,"" 

Data  *** 


Menu  Bar$()  !  activate  menu 

On  Menu  Key  Gosub  Help_key_test 

On  Menu  Gosub  Main_menu_read 

On  Menu  Ibox  1,450,142,180,18  Gosub  Inbox_execute 

On  Menu  Ibox  2,5,142,170,18  Gosub  Inbox_cancel 

Do 

On  Menu 
Loop 

Return   !@Main_menu 

i 

i 

Procedure  Force_menu_a 
@Cclear_middle 
Void  Fre(0) 
Firsttime !=True 
Restore  Fforce_a_data 
For  1=0  To  110 

Read  Bar$(I) 

Exit  If  Bar$(I)="***n 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Fforce_a_data : 
Data  Force  A-C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 


FORCE  Menu  A 


!  clean  up  variables 

!  allows  "Weapons  Tight/Free"  to  register  only  once 


set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 
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Data   new  Menu  , 

Data  MAIN  Menu  ->C  astab   graphics   player  comms   game 
Data  

Data  FORCE  Menu  B  ->C  aircraft   submarines   force  comms 

Data --- -- ,"" 

i 

Data  FOR  xxx  ,-,  Select  unit  ,"" 
i 

Data  MANEUVERS  ,-,  Course,  Speed,  Proceed,  Station 

Data  Search,  USE  (plan)  ,  Execute  (plan) 

Data  Enter  Orders,  Pending  Orders  ,  Cancel,"" 
i 

Data  SENSORS  ,-,  Activate  ,  Silence,  Blip  on,   Blip  off  ,  DECM  on 

Data   DECM  off  ,  RBOC  on,   RBOC  off  ,  Jam,  Cease,  Emcon,"" 
i 

Data  ENGAGE  ,-,  Weapons  ,  Fire,  Launch,  Take,"" 
Data  *** 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Force_menu_a_read 

On  Menu  Ibox  1,450,142,180,18  Gosub  Inbox_execute 

On  Menu  Ibox  2,5,142,170,18  Gosub  Inbox_cancel 

Do 

On  Menu 
Loop 
Return   !@Force_menu_A 


FORCE  Menu  B 


Procedure  Force_menu_b 
@Cclear_middle 
Void  Fre(0) 
Restore  Fforce_b_data 
For  1=0  To  110   !90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Fforce_b_data : 
Data  Force  B-C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   new  Menu  , 

Data  MAIN  Menu  -C  astab 

Data 

Data  FORCE  Menu  A  ->C  maneuvers   sensors   engagements 

Data 

i 


!  clean  up  variables 

!  set  up  a  loop 
!  read  data  from  data  field 
!  until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 


graphics   player  comms   game 


n  n 


Data  FOR  xxx  ,-,  Select  unit  ,' 


i  ii 


Data  AIRCRFT  ,-,  Launch  ,-,  Flight  Cmds  ,-,  Alert,  Close 
Data  Handover,  Open,  Orbit,  Recall,  Recover,"" 
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Data  SUBMRINE  ,-,  Depth,  Surface,  Periscope  ,  Fire 

Data  Mode,  Mast,  Deploy,  Retrieve,"" 
i 

Data  COMMS  ,-,  Commtext  ,  Embark,  Report,  Circuit,"" 

Data  *** 
i 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Force_menu_b_read 

On  Menu  Ibox  1,450,142,180,18  Gosub  Inbox_execute 

On  Menu  Ibox  2,5,142,170,18  Gosub  Inbox_cancel 

Do 

On  Menu 

Loop 

Return   !@Force_menu_B 
i 

1  Designate  sub-menu 

Procedure  Designate_menu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 

Restore  Ddesignate_data 

For  1=0  To  90  !  set  up  a  loop 

Read  Bar$(I)  !  read  data  from  data  field 

Exit  If  Bar$(I)="***"   !  until  end  of  data  field 
Next  I 

Bar$(I)=""  !  tail  blanks  into  string 

Bar$(I+l)=""  !  ditto 

Ddesignate_data : 
Data  Desig  -C  ,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data  as...  ,-,  Enemy,  Friendly  ,  Neutral,  Unknown,"" 

Data  *** 

Cstr$="select  Designation..." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Designate_menu_read 

Do 

On  Menu 

Loop 

Return   !@Designate_menu 
i 

1  Show  sub-menu 

Procedure  Show_menu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 

Restore  Sshow_data 

For  1=0  To  90  !  set  up  a  loop 

Read  Bar$(I)  !  read  data  from  data  field 

Exit  If  Bar$(I)="***"   !  until  end  of  data  field 
Next  I 

Bar$(I)=""  !  tail  blanks  into  string 

Bar$(I+l)=""  !  ditto 

Sshow_data : 
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Data  Show  -C  ,   ?? 

Data 

Data  1,2,3,4,5,6,"" 
i 

Data  A  -  C   ,-,  AAWC,  Active,  Air,  ASUWC,  ASWC,  Bogey  (tote  &  cap) 

Data  Continuation  (of  next  page)  ,"" 

i 

Data  D  -  P   ,-,  Damage  (&  reconn  info)  ,  ESM,  EWC,  Flight,  Force,  HFDF 
Data  Intell  (spot  reports),  Passive  (sonar  tracks),"" 

Data  Q  -  Z   ,-,  Reporting  (policies),  Ship,  Shore,  SOSUS  (tracks) 

Data  Submarine,  Surface  (tracks),  Surveillance  (satellites)  ,  Weather,"" 

Data  *** 
i 

Cstr$="Select  item  to  Show  status  information  for..." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$() 

On  Menu  Gosub  Show_menu_read 

Do 

On  Menu 
Loop 
Return   !@Show_menu 

1  Display  sub-sub-menu  (of  Show  menu) 

Procedure  Displayjnenu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 
Restore  Ddisplay_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Ddisplay_data : 
Data  Display-^  ,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   on...  ,-,  Blue,  Neutral,  Orange,  <astab>,  <continue>  ,"" 

Data  *** 

Cstr$="Select  which  display  to  show  information  on." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Display_menu_read 

Do 

On  Menu 

Loop 

Return   !@Display_menu 
i 

'  Show  Air  sub-sub-menu  (of  Show  menu) 

Procedure  Show_air_menu 

Menu  Kill    !##  kills  menu,-  to  stop  use  of  Execute/Cancel  boxes 

Restore  Showair  data 
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set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***' 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Showair_data : 
Data  Show  ->C  ,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   air...  ,-,  Alert,  Availability  ,  Events,  Tracks, 

Data  *** 

Cstr$="Select  AIR  item." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Show_air_menu_read 

Do 

On  Menu 
Loop 
Return   !@Show_air_menu 


set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 


1  Plot  sub-menu 

Procedure  Plot_menu 
Menu  Kill 

Restore  Pplot_data 
For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Pplot_data: 
Data  Plot  -C,   ?? 

Data - 

Data  1,2,3,4,5,6,"" 

Data  new  Menu  , 

Data  MAIN  Menu  -C  astab 

Data 

Data  FORCE  Menu  A  -'C  maneuvers   sensors   engagements 

Data 

Data  FORCE  Menu  B  ->C  aircraft   submarines   force  comms 

Data  -- ,"" 

Data    PLOT     ,-,  All,  Blue,  Orange,  Own,  Boundaries  ,  Chaff,  LOB 

Data  Regions,  Rivers,  Sonobuoy,  Speed,  Survsat,  PIM,  Track,  Station," 
i 

Data  *** 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Plot_erase_menu_read 

Do 

On  Menu 

T$="PL0T  "    !  ensures  "PLOT"  precedes  each  Plot  command. 


graphics   player  comms   game 
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Loop 
Return   !@Plot_menu 


set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 


1  Erase  sub-menu 

Procedure  Erase_menu 
Menu  Kill 

Restore  Eerase_data 
For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Eerase_data : 
Data  Erase  -C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data  new  Menu  , 

Data  MAIN  Menu  --C  astab   graphics   player  comms   game 

Data 

Data  FORCE  Menu  A  ->C  maneuvers   sensors   engagements 

Data 

Data  FORCE  Menu  B  --C  aircraft   submarines   force  comms 

Data ,"" 


Data   ERASE    ,-,  All,  Blue,  Orange,  Own,  Boundaries  ,  Chaff,  LOB 
Data  Regions,  Rivers,  Sonobuoy,  Speed,  Survsat,  PIM,  Track,  Station,"" 


Data  *** 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Plot_erase_menu_read 

Do 

On  Menu 

T$="ERASE  "    !  ensures  "ERASE"  precedes  each  Erase  command. 
Loop 


Return   !@Erase  menu 


Procedure  Cancel_menu 
Menu  Kill 

Restore  Ccancel_data 
For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***' 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Ccancel_data : 
Data  Cancel  -C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 
Data  new  Menu  , 


Cancel  sub-menu 


set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 
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Data  MAIN  Menu  -^C  astab   graphics   player  comms   game 
Data 

Data  FORCE  Menu  A  ->C  maneuvers   sensors   engagements 
Data 

Data  FORCE  Menu  B  ->C  aircraft   submarines   force  comms 

Data ,'"' 

i 

Data  A  -  B  ,-,  Activate  ,  All,  Altitude,  Attach,  Barrier,  Bingo,  Blip,"" 
i 

Data  C  -  D  ,-,  Cease,  Chaff,  Circle  ,  Course,  Cover,  DECM 

Data  Deploy,  Depth,  Detach,"" 

i 

Data  E  -  M  ,-,  Emcon,  Execute  ,  Fire,  Grid,  Jam,  Launch 

Data  Mast,  Mission,  Mode,"" 
i 

Data  N  -  R  ,-,  Orbit,  Proceed,  RBOC,  Recall,  Reconn,  Recover 

Data  Refuel,  Retrieve  ,"" 
i 

Data  S  -  Z  ,-,  Search,  Silence  ,  Speed,  Station,  Take,  Turn 
Data  Weapons,  Xmark,"" 

Data  *** 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Cancel_menu_read 

Do 

On  Menu 

T$="CANCEL  "    !  ensures  "CANCEL"  precedes  each  Cancel  command. 
Loop 
Return   !@Cancel_menu 

1  Weapons  sub-menu 

Procedure  Weapons_menu 

Menu  Kill    !##  kills  menu,-  to  stop  use  of  Execute/Cancel  boxes 

Restore  Wweapons_data 

For  1=0  To  90  !  set  up  a  loop 

Read  Bar$(I)  !  read  data  from  data  field 

Exit  If  Bar$(I)="***"   !  until  end  of  data  field 
Next  I 

Bar$(I)=""  !  tail  blanks  into  string 

Bar$(I+l)=""  !  ditto 

Wweapons_data : 
Data  Weapons-^C,   ?? 

Data  

Data  1,2,3,4,5,6,"" 

Data    FREE     ,-,  Air,  Surface,  Submarine,  All,  Enemy 

Data  Nuclear,  Conventional  ,"" 

Data   TIGHT     ,-,  Air,  Surface,  Submarine,  All,  Enemy 

Data  Nuclear,  Conventional  ,"" 

Data  *** 

Cstr$="select  Weapon  item..." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 
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On  Menu  Gosub  Weapons_menu_read 
Do 

On  Menu 
Loop 
Return   !@Weapons_menu 


1  Launch  Cruise  sub-menu 

Procedure  Cruise_menu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 
Restore  Ccruise_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Ccruise_data : 
Data  Cruise  ->C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   mode   ,-,  BOL,  PL2,  PL3 ,  PLTWO,  PLTHREE 

Data  *** 

Cstr$="select  Cruise  mode..." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Cruise_menu_read 

Do 

On  Menu 
Loop 
Return   !@Cruise_menu 


TLAM," 


SENSOR  Activate  sub-menu 


Procedure  Activate_menu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 

Restore  Aactivate_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Aactivate_data : 
Data  Sensor-C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data  activate  ,-,  Air,  Approach  ,  Emitter,  ESM,  Radar,  Sonar 

Data  Surface,  Survsat,"" 

Data  *** 

Menu  Bar$()  !  activate  menu 

Print  At(31,Ytext%);"Select  menu  item..." 


If  Aclaunch! 
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T$=T$+"ACTIVATE  " 
Else 

T$=F_name$+"  ACTIVATE  "  !  ensures  "ACTIVATE"  precedes  each  Activate  cmd, 
Endif 

On  Menu  Gosub  Activate_menu_read 

Do 

On  Menu 

Loop 

Return   !@Activate_menu 
i 

1  Activate  SONAR  mode  sub-menu 

Procedure  Sonar_menu 
@Cclear_middle 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 
Restore  Ssonar_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Ssonar_data : 
Data  Sonar  -C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data    mode...  ,-,  BB,  CZ,  DP,  none  ,"" 

Data  *** 

Menu  Bar$()  !  activate  menu 

Cstr$="Select  a  mode." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

On  Menu  Gosub  Sonar_menu_read 

Do 

On  Menu 
Loop 
Return   !@Sonar  menu 


1  SENSOR  Silence  sub-menu 

Procedure  Silence_menu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 
Restore  Ssilence_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Ssilence_data: 
Data  Sensor-C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   silence  ,-,  Air,  Approach  ,  Emitter,  ESM,  Radar,  Sonar 


!  tail  blanks  into  string 
!  ditto 
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Data  Surface,  Survsat,"" 

Data  *** 

Menu  Bar$()  !  activate  menu 

Print  At(31,Ytext%) ;"Select  menu  item..." 

i 

If  Aclaunch! 

T$=T$+MSILENCE  " 
Else 

T$=F_name$+"  SILENCE  "  !  ensures  "SILENCE"  precedes  each  Silence  cmd. 

Endif 
i 

On  Menu  Gosub  Silence_menu_read 
Do 

On  Menu 
Loop 

Return   !@Silence_menu 

1  AIRCRAFT  mission  sub-menu 

Procedure  Mission_menu 

@Cclear_middle 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 

Restore  Mmission_data 

For  1=0  To  90  !  set  up  a  loop 

Read  Bar$(I)  !  read  data  from  data  field 

Exit  If  Bar$(I)="***"   !  until  end  of  data  field 

Next  I 

Bar$(I)=""  !  tail  blanks  into  string 

Bar$(I+l)=""  !  ditto 

Mmission_data : 

Data  Aircrft-C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data   mission  ,-,  none,  AEW,  Airtanker,  ASW,  CAP,  Decoy,  EW,  Jammer 

Data  Reconn,  Relay,  Rescue,  Search,  Strcap,  Strike 

Data  Sttanker,  Surcap,  Surveillance  ,"" 

Data  *** 

Menu  Bar$()  !  activate  menu 

Cstr$="Select  a  mission" 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

On  Menu  Gosub  Mission_menu_read 

Do 

On  Menu 

Loop 
Return   !@Mission_menu 

1  AIRCRAFT  commands  sub-menu 

Procedure  Flt_commands_menu 

@Cclear_middle 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 

Restore  Commands_data 

For  1=0  To  90  !  set  up  a  loop 

Read  Bar$(I)  !  read  data  from  data  field 
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!  until  end  of  data  field 

!  tail  blanks  into  string 
!  ditto 


Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)  =  mi 
Commands_data : 
Data  Fit  Cmd-C,   ?? 
Data 

Data  1,2,3,4,5,6,"" 

i 

Data   A  -  C  ,-,  Activate  ,  Altitude,  Attach,  Barrier,  Bingo,  Cease 
Data  Chaff,  Course,  Cover,"" 

Data   D  -  R  ,-,  Deploy,  Detach,  Fire,  Inform,  Jam,  Load,  Mission 

Data  Proceed  ,  Reconn,  Refuel,  Report,"" 
i 

Data   S  -  Z  ,-,  Search,  Silence  ,  Speed,  Station,  Stop,  Take 

Data  Turn,  Use,  Weapons,"" 

Data  *** 
i 

Menu  Bar$()  !  activate  menu 

If  Aclaunch! 

Print  At(15,13) ;"CEnd  flight  plan  with  STOP,  BINGO,  or  SEARCH  command. | 
Endif 

On  Menu  Gosub  Flt_commands_menu_read 
Do 

On  Menu 
Loop 
Return   !@Flt  commands  menu 


1  AIRCRFT  Fit  cmds  Report  sub-menu 

Procedure  Reportjnenu 

Menu  Kill    !##  kills  menu;  to  stop  use  of  Execute/Cancel  boxes 
Restore  Rreport_data 

set  up  a  loop 

read  data  from  data  field 

until  end  of  data  field 


!  tail  blanks  into  string 
!  ditto 


For  1=0  To  90 

Read  Bar$(I) 

Exit  If  Bar$(I)="***" 
Next  I 
Bar$(I)="" 
Bar$(I+l)="" 
Rreport_data : 
Data  Report  -C,   ?? 

Data 

Data  1,2,3,4,5,6,"" 

Data  menu  ,-,  <continue>  ,  Air,  ESM,  On,  Position,  Surface,  Time,  Using,"" 

Data  *** 

Cstr$="select  Report  item..." 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Menu  Bar$()  !  activate  menu 

On  Menu  Gosub  Report_menu_read 

Do 

On  Menu 
Loop 
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Return   !@Report_menu 

############################################################################ 

MENU  READ  PROCEDURES 

############################################################################# 

Main  menu  selections 
Procedure  Main_menu_read 
Menu  Off 
@Cclear_middle 

T$=F_name$    !##  resets  T$  to  allow  only  one  command  in  the  string. 
@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0))="   ??" 

@My_thesis  ! alert  box  routine 

Endif 
If  Bar$(Menu(0)  )  =  "  FORCE  Menu  A  --C  maneuvers   sensors   engagements" 

@Force_menu_a 
Endif 
If  Bar$(Menu(0))="  FORCE  Menu  B  -C  aircraft   submarines   force  comms" 

@Force_menu_b 
Endif 
i  __________________________  ASTAB  orders  -  -  -  - 

i 

If  Bar$(Menu(0))="  Bearing" 
T$="BEARING  " 
@Bbearing 
@Show_cmd 

Endif 

If  Bar$(Menu(0))="  Classify" 

T$="CLASSIFY  " 

declassify 

@Show_cmd 
Endif 

If  Bar$(Menu(0))="  CPA" 

T$="CPA  " 

@Ccpa 

@Show_cmd 
Endif 

If  Bar$(Menu(0))="  Designate  " 

T$="DESIGNATE  " 

@Designate_menu 

Endif 
i 


If  Bar$(Menu(0))="  Drop" 
T$="DROP  " 
(§Ddrop 
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@Show_cmd 
Endif 

If  Bar$(Menu(0))="  Print" 

T$="PRINT  " 

@Pprint 

@Show_cmd 

Endif 
i 

If  Bar$(Menu(0))=M  Show" 

T$="SHOW  " 

@Show_menu 

Endif 

i  _______________ 

If  Bar$(Menu(0))="  Plot" 

@Plot_menu 
Endif 
If  Bar$(Menu(0))="  Erase" 

@Erase_menu 
Endif 
If  Bar$(Menu(0))="  Center" 

T$="CENTER  " 

@Ccenter 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Radius" 

T$="RADIUS  " 

@Rradius 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Shift" 

T$="SHIFT  " 

@Sshift 

@Shov_cmd 
Endif 
If  Bar$(Menu(0))="  Label" 

T$="LABEL  " 

@Llabel 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  LOB" 

T$="LOB  " 

@Llob 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Mark  track" 

T$="MARK  TRACK  " 

@Mmark_track 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Mark  bearing' 

T$="MARK  BEARING  " 


37 


GRAPHICS  orders 


@Mmark_bearing 

@Show_cmd 
Endif 
If  Bar$(Menu(0))=M  Unmark  track" 

T$="UNMARK  TRACK  " 

@Uunmark_track 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Place" 

T$="PLACE  " 

@Pplace 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Cancel" 

T$="CANCEL  " 

@Cancel_menu 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  PIM" 

T$="PIM  " 

@Ppim 

@Show_cmd 
Endif 


COMMS  orders 


If  Bar$(Menu(0))="  Inform" 

T$=" INFORM  " 

@Show_cmd 

Cstr$="Enter  text  to  send  to  player:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Print 

Form  Input  75,Fi$ 

T$=T$+Upper$(Fi$) 

@Show_cmd 

Endif 
i 

If  Bar$(Menu(0))="  Intell" 
T$="INTELL  " 
@Iintell 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Message  " 

T$="MESSAGE  " 

@Mmessage 

@Show_cmd 
Endif 

1  UMPIRE  orders  - 

If  Bar$(Menu(0))="  Go" 

T$="GO  " 

(§Show_cmd 
Endif 
If  Bar$(Menu(0))="   Pause" 
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T$="PAUSE  " 

@Ppause 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  End" 

T$="END  " 

@Eend 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Copy" 

T$="COPY  " 

@Ccopy 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Relocate" 

T$="RELOCATE  " 

@Rrelocate 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Save" 

T$="SAVE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Time" 

T$="TIME  " 

@Ttime 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Set" 

T$="SET  " 

@Sset 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Enable" 

T$="ENABLE  " 

(?Enable_disable 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Disable" 

T$="DISABLE  " 

@Enable_disable 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Expend" 

T$="EXPEND  " 

@Expend_replenish 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Replenish" 

T$="REPLENISH  " 

@Expend_replenish 

©Show  cmd 
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Endif 
Return   !@Main_menu_read 

1  Force  menu  A  selections 

Procedure  Force_menu_a_read 

Menu  Off 

@Cclear_middle 

T$=F_name$   !##  resets  T$  to  allow  only  one  command  in  the  string. 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0))="   ??" 

@My_thesis  ! alert  box  routine 

Endif 
If  Bar$(Menu(0))="  MAIN  Menu  -C  astab   graphics   player  comms   game" 

@Main_menu 
Endif 
If  Bar$(Menu(0) )="  FORCE  Menu  B  -C  aircraft   submarines   force  comms" 

@Force_menu_b 
Endif 
If  Bar$(Menu(0))="  Select  unit  " 

@F_entry 

@Force_menu_a 
Endif 

1 -- _--___  MANEUVER  orders  -  -  -  - 

If  Bar$(Menu(0))="  Course" 

T$="COURSE  " 

@F_check 

@Ccourse 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Speed" 

T$="SPEED" 

@F_check 

@Sspeed 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Proceed" 

T$="PROCEED  " 

@F_check 

@Pproceed 

@Shov;_cmd 
Endif 
If  Bar$(Menu(0))="   Station" 

T$="STATION  " 

@F_check 

@Sstation 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Search" 

T$="SEARCH  " 

@F_check 

(?Ssearch 
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@Show_cmd 
Endif 
If  Bar$(Menu(0))="  USE  (plan)  " 

T$="USE  " 

@F_check 

@Uuse 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Execute  (plan)" 

T$="EXECUTE  " 

@F_check 

@Eexecute 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Enter  Orders" 

Cstr$="ENTER  ORDERS  command  not  functional;  need  RESA  input." 

Print  At(12,Ytext%) ;Cstr$ 
Endif 
If  Bar$(Menu(0) )="  Pending  Orders  " 

Cstr$="PEMDING  ORDERS  command  not  functional;  need  RESA  input." 

Print  At(12,Ytext%) ;Cstr$ 
Endif 
If  Bar$(Menu(0))="  Cancel" 

T$="CANCEL  " 

@F_check 

@Cancel_menu 

@Show_cmd 
Endif 

1  ------  _____  SENSORS  orders 

If  Bar$(Menu(0))="  Activate  " 

T$="ACTIVATE  " 

@F_check 

@Activate_menu 
Endif 
If  Bar$(Menu(0))="  Silence" 

T$="SILENCE    " 

@F_check 

@Silence_menu 
Endif 
If  Bar$(Menu(0))="  Blip  on" 

T$="BLIP  ON  " 

@F_check 

(?Show_cmd 
Endif 
If  Bar$(Menu(0))="     Blip  off  " 

T$="BLIP  OFF   " 

@F_check 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  DECM  on" 

T$="DECM  ON  " 

@F_check 
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RBOC  off  " 


@Show_cmd 
Endif 
If  Bar$(Menu(0))="  DECM  off 

T$="DECM  OFF  " 

@F_check 

@Show_cmd 
Endif 
If  Bar$(Menu(0))=M  RBOC  on" 

T$="RBOC  ON  " 

@F_check 

@Show_cmd 
Endif 
If  Bar$(Menu(0))=" 

T$="RBOC  OFF" 

@F_check 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Jam" 

T$="JAM" 

@F_check 

@Jjam 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Cease" 

T$=I,CEASE" 

@F_check 

@Ccease 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Emcon" 

T$="EMCON" 

@F_check 

@Eemcon 

@Shov_cmd 
Endif 


ENGAGE  orders 


If  Bar$(Menu(0))="  Weapons  " 

T$="WEAPONS  " 

@F_check 

@Weapons_menu 
Endif 
If  Bar$(Menu(0))="  Fire" 

T$="FIRE  " 

@F_check 

@Ffire 

@Shov;_cmd 
Endif 
If  Bar$(Menu(0))="  Launch" 

T$="LAUNCH  " 

@F_check 

@Llaunch 
Endif 
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If  Bar$(Menu(0))="  Take" 

T$="TAKE  " 

@F_check 

@Ttake 

@Show_cmd 
Endif 
Return   !@Force_menu_A_read 

1  Force  menu  B  selections 

Procedure  Force_menu_b_read 

@Cclear_middle 

T$=F_name$    !##  resets  T$  to  allow  only  one  command  in  the  string. 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 
i 

If  Bar$(Menu(0))="   ??" 

@My_ thesis  ! alert  box  routine 

Endif 
If  Bar$(Menu(0) )="  MAIN  Menu  -C  astab   graphics   player  comms   game" 

@Main_menu 
Endif 
If  Bar$(Menu(0) )="  FORCE  Menu  A  --C  maneuvers   sensors   engagements" 

@Force_menu_a 
Endif 
If  Bar$(Menu(0))="  Select  unit  " 

@F_entry 

@Force_menu_b 
Endif 


If  Bar$(Menu(0))="  Launch  " 

T$=" LAUNCH  " 

@F_check 

@Ac_launch 

Endif 
i 

If  Bar$(Menu(0))="  Flight  Cmds 

@F_check 

Cstr2$="" 

@Flt_commands_menu 

Endif 
i 

If  Bar$(Menu(0))="  Alert" 

T$="ALERT" 

@F_check 

@Aalert 
Endif 

If  Bar$(Menu(0))="  Close" 
T$="CLOSE" 
@F_check 
@Show_cmd 
Inc  Ytext% 
@Tc  choice 


AIRCRFT  selections 
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Endif 

If  Bar$(Menu(0))="  Handover" 

T$="HANDOVER" 

@F_check 

@Hhandover 
Endif 

If  Bar$(Menu(0))=M  Open" 

T$="OPEN" 

@F_check 

@Show_cmd 

Inc  Ytext% 

@Tc_choice 

Endif 
i 

If  Bar$(Menu(0))="  Orbit" 

T$="ORBIT" 

@F_check 

@Oorbit 

Endif 
i 

If  Bar$(Menu(0))="  Recall" 
T$="RECALL" 
@F_check 
@Show_cmd 

Cstr$="All  flights." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc  Ytext% 
@Tc_choice 

Endif 

i 

If  Bar$(Menu(0))="  Recover" 

T$="RECOVER" 

@F_check 

@Show_cmd 

Cstr$="All  flights." 

Print  At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Inc  Ytext% 

@Tc_choice 
Endif 

1  ------  SUBMRINE  selections 

If  Bar$(Menu(0))="  Depth" 

T$="DEPTH  " 

@F_check 

Cstr$="Enter  depth  (60-9999  ft):  " 

Print  At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Lolim%=60 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+Pnum$ 
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Ytext%=Crslin 

Inc  Ytext% 

@Tc_choice 

Endif 
i 

If  Bar$(Menu(0))="  Surface" 

T$="SURFACE" 

@F_check 

@Tc_choice 

Endif 
i 

If  Bar$(Menu(0))="  Periscope  " 

T$="PERISCOPE" 

@F_check 

Cstr$="Come  to  periscope  depth." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Tc_choice 
Endif 

If  Bar$(Menu(0))="  Fire" 

T$="FIRE  " 

@F_check 

@Ffire 
Endif 

If  Bar$(Menu(0))="  Mode" 
T$="MODE" 
@F_check 

Alert  2,"   Which  mode?  " ,0, "Diesel  Electric", A 
If  A=l  Then 

T$=T$+"  DIESEL" 
Endif 
If  A=2  Then 

T$=T$+"  ELECTRIC" 
Endif 
Clr  A 

Inc  Ytext% 
@Tc_choice 

Endif 

i 

If  Bar$(Menu(0))="  Mast" 
T$="MAST" 
@F_check 

Alert  2,"  Select...  ",0,"  Down   Up", A 
If  A=l  Then 

T$=T$+"  DOWN" 
Endif 
If  A=2  Then 

T$=T$+"  UP" 
Endif 
Clr  A 
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Inc  Ytext% 

@Tc_chcice 
Endif 

If  Bar$(Menu(0))="  Deploy" 

T$="DEPLOY  " 

@F_check 

@Ddeploy 
Endif 

If  Bar$(Menu(0))="  Retrieve" 

T$="RETRIEVE  " 

@F_check 

@Ddeploy   !##  used  also  for  "Retrieve" 
Endif 

1  -- - COMMTEXT  selections 

If  Bar$(Menu(0))="  Commtext  " 

T$=" COMMTEXT  " 

@F_check 

@Ccommtext 
Endif 

If  Bar$(Menu(0))="  Embark" 

T$=" EMBARK  " 

@F_check 

@E  embark 
Endif 

If  Bar$(Menu(0))="  Report" 

T$="REPORT  " 

@F_check 

@Show_cmd 

@Report_menu 

Endif 
i 

If  Bar$(Menu(0))="  Circuit" 

T$="CIRCUIT  " 

@F_check 

@Show_cmd 

Cstr$="Enter  circuit  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 
Endif 

@Show_cmd 
@Force_menu_b 
Return   !@Force_menu_b_read 

1  Designate  menu  selections 

Procedure  Designate_menu_read 
Menu  Off 
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@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0))="  Enemy" 

T$=T$+"ENEMY  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

@Track_entry 
Endif 

If  Bar$(Menu(0))="  Friendly  " 

T$=T$+"FRIENDLY  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 

If  Bar$(Menu(0))="  Neutral" 
T$=T$+"NEUTRAL  " 
@Show_cmd 

Cstr$="Enter  track  number:  " 
Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
@Track_entry 

Endif 

i 

If  Bar$(Menu(0))="  Unknown" 

T$=T$+" UNKNOWN  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

@Track_entry 

Endif 
i 

@Show_cmd 
@Main_menu 
Return   !@Designate_menu_read 

1  'Show'  menu  selections 

Procedure  Show_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 
i 

If  Bar$(Menu(0))="  AAWC" 

T$=T$+"AAWC  " 

(?Af_choice    !##  AIR/FLIGHT  choice 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  Active" 
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T$=T$+"ACTIVE  " 

@Show_cmd 

Alert  2,"    Select...   ",0, "Sonar  Tracks  ",A 

If  A=l 

T$=T$+"SONAR  " 
Endif 
If  A=2 

T$=T$+"TRACKS  " 
Endif 
Clr  A 
@Show_cmd 

@Display_menu    !##  Sub-menu  for  Show  menu 
Endif 

If  Bar$(Menu(0))="  Air" 

T$=T$+"AIR  " 

@Show_cmd 

@Show_air_menu 
Endif 

If  Bar$(Menu(0))="  ASUWC" 

T$=TS+"ASUWC  " 

@Af_choice     !##  AIR/FLIGHT  choice 

Endif 
i 

If  Bar$(Menu(0))="  ASWC" 

T$=T$+"ASWC  " 

@Af_choice    !##  AIR/FLIGHT  choice 
Endif 

If  Bar$(Menu(0))="  Bogey  (tote  &  cap)" 

T$=T$+"BOGEY  " 

@Show_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0) )="  Continuation  (of  next  page)  " 

T$=T$+"CONTINUATION  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Damage  (&  reconn  info)  " 

T$=T$+"DAMAGE  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  ESM" 
T$=T$+"ESM  " 

Alert  2,"       ESM...       ",0,"Air  Surface  Tracks" , A 
If  A=l 
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T$=T$+"AIR  " 
Endif 
If  A=2 

T$=T$+"SURFACE  " 
Endif 
If  A=3 

T$=T$+"TRACKS  " 

Endif 

Clr  A 

@Show_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  EWC" 

T$=T$+"EWC  " 

@Af_choice     !##  AIR/FLIGHT  choice 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Flight" 

T$=T$+"FLIGHT  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Force" 

T$=T$+"FORCE  " 

@Show_cmd 

Cstr$="Enter  force  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$)+"  " 

@Show_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  HFDF" 

T$=T$+"HFDF  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Intell  (spot  reports)" 

T$=T$+"INTELL  " 

@Show_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  Passive  (sonar  tracks)" 
T$=T$+"PASSIVE  " 
@Show_cmd 
@Display_menu 
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Endif 

If  Bar$(Menu(0) )="  Reporting  (policies)" 

T$=T$+"REPORTING  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Ship" 

T$=T$+"SHIP  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="   Shore" 

T$=T$+"SHORE    " 

@Shov;_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  SOSUS  (tracks)" 

T$=T$+"SOSUS  " 

@Shov/_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  Submarine" 

T$=T$+"SUBMARINE  " 

@Show_cmd 

@Display_menu 

Endif 
i 

If  Bar$(Menu(0))="  Surface  (tracks)" 

T$=T$+"SURFACE  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Surveillance  (satellites)  " 

T$=T$+"SURVEILLANCE  " 

@Show_cmd 

@Display_menu 
Endif 

If  Bar$(Menu(0))="  Weather" 

T$=T$+"WEATHER  " 
@Show_cmd 
@Display_menu 
Endif 

@Show_cmd 
©Main  menu 
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Return   !@Show_menu_read 

1  'Display'  menu  selections 

Procedure  Display_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

Cstr$="Enter  view  number:  " 
i 

If  Bar$(Menu(0))="  Blue" 

T$=T$+"BLUE  " 

@Va_entry 
Endif 

If  Bar$(Menu(0))="  Orange" 

T$=T$+"0RANGE  " 

@Va_entry 
Endif 

If  Bar$(Menu(0))="  Neutral" 

T$=T$+"NEUTRAL  " 
Endif 

If  Bar$(Menu(0))="  <astab>" 

Cstr$="Enter  ASTAB  number:  " 

@Va_entry 
Endif 

@Show_cmd 

@Main_menu 

Return   !@Display_menu_read 
i 

'  'Display'  menu  selections 

Procedure  Show_air_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 
i 

Cstr$="Enter  ASTAB  number:  " 
i 

If  Bar$(Menu(0))="  Alert" 

T$=T$+"ALERT  " 

@Va_entry 
Endif 

If  Bar$(Menu(0))="  Availability  " 

T$=T$+"AVAILABILITY  " 

@Va_entry 

Endif 
i 

If  Bar$(Menu(0))="  Events" 
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T$=T$+"EVENTS  " 
@Va_entry 
Endif 

If  Bar$(Menu(0))="  Tracks" 

T$=T$+"TRACKS  " 

@Va_entry 

Endif 
i 

@Show_cmd 
@Main_menu 
Return   !@Show_air_menu_read 

i  _________  common  entry  for  AIR/FLIGHT  choices  from  Show  menu  -  -  - 

Procedure  Af_choice 

@Show_cmd 

Alert  2,"    Select...   ",0,"Air  Flight  ",A 

If  A=l 

T$=T$+"AIR  " 

Endif 

If  A=2 

T$=T$+"FLIGHT  " 

Endif 

Clr  A 
Return 

i   ______  common  entry  for  View/ASTAB  number  from  Display  menu  read  -  ■ 

Procedure  Va_entry 

@Show_cmd 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 

Hilim%=6 

Numlen%=l 

@Number_entry 

T$=T$+Pnum$ 

Return 
i 

•  ____________________________________ 

1  Plot_Erase  menu  selections 

Procedure  Plot_erase_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0)  )  =  "  MAIN  Menu  ->C  astab   graphics   player  comms   game" 

@Main_menu 
Endif 
If  Bar$(Menu(0) )="  FORCE  Menu  A  -C  maneuvers   sensors   engagements" 

(?Force_menu_a 
Endif 
If  Bar$(Menu(0) )="  FORCE  Menu  B  -C  aircraft   submarines   force  comms" 

@Force_menu_b 
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Endif 

If  Bar$(Menu(0))="  All" 

T$=T$+"ALL  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Blue" 

T$=T$+"BLUE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Orange" 

T$=T$+"ORANGE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Own" 

T$=T$+"OWN  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0) )="  Boundaries  " 

T$=T$+"BOUNDARIES  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Chaff" 

T$=T$+"CHAFF  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  LOB" 

T$=T$+"LOB  " 

@Shov;_cmd 
Endif 
If  Bar$(Menu(0))="   PIM" 

T$=T$+"PIM   " 

@Shou_cmd 
Endif 
If  Bar$(Kenu(0))="  Regions" 

T$=T$+"REGIONS  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Rivers" 

T$=T$+"RIVERS  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Sonobuoy" 

T$=T$+"SONOBUOY  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Speed" 

T$=T$+"SPEED  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Survsat" 

T$=T$+"SURVSAT  " 

(§Show_cmd 
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Endif 

If  Bar$(Menu(0))="  Track" 

T$=T$+"TRACK  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Station" 

T$=T$+"STATION  " 

@Show_cmd 
Endif 

@Main_menu    ! returns  to  main  menu,  allowing  only  one  plot/erase  choice 

Return   !@Plot_erase_menu_read 

i 

1  Cancel  menu  selections 

Procedure  Cancel_menu_read 

Menu  Off 

@F_check 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0) )="  MAIN  Menu  7C  astab   graphics   player  comms   game" 

@Main_menu 
Endif 
If  Bar$(Menu(0)  )  =  "  FORCE  Menu  A  ->C  maneuvers   sensors   engagements" 

@Force_menu_a 
Endif 
If  Bar$(Menu(0)  )  =  "  FORCE  Menu  B  -^C  aircraft   submarines   force  comms" 

@Force_menu_b 
Endif 
If  Bar$(Menu(0))="  Activate  " 

T$=T$+"ACTIVATE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  All" 

T$=T$+"ALL  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Altitude" 

T$=T$+"ALTITUDE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Attach" 

T$=T$+"ATTACH  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Barrier" 

T$=T$+"BARRIER  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Bingo" 

T$=T$+"BINGO  " 

@Show_cmd 
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Endif 

If  Bar$(Menu(0))="  Blip" 

T$=T$+"BLIP  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Cease" 

T$=T$+"CEASE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Chaff" 

T$=T$+"CHAFF  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Circle  " 

T$=T$+"CIRCLE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Course" 

T$=T$+"COURSE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Cover" 

T$=T$+"COVER  " 

@Shov_cmd 
Endif 
If  Bar$(Menu(0))="  DECM" 

T$=T$+"DECM  " 

@Shov;_cmd 
Endif 
If  Bar$(Menu(0))="   Deploy" 

T$=T$+"DEPLOY" 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Depth" 

T$=T$+"DEPTH  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Detach" 

T$=T$+"DETACH  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Emcon" 

T$=T$+"EMCON  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Execute  " 

T$=T$+"EXECUTE  " 

(?Show_cmd 
Endif 
If  Bar$(Menu(0))="  Fire" 

T$=T$+"FIRE  " 

@Show_cmd 
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Endif 

If  Bar$(Menu(0))="  Grid" 

T$=T$+"GRID  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Jam" 

T$=T$+"JAM  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Launch" 

T$=T$+"LAUNCH  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Mast" 

T$=T$+"MAST  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Mission" 

T$=T$+"MISSION  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Mode" 

T$=T$+"MODE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Orbit" 

T$=T$+"ORBIT  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Proceed" 

T$=T$+"PROCEED  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  RBOC" 

T$=T$+"RBOC  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Recall" 

T$=T$+"RECALL  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Reconn" 

T$=T$+"RECONN  " 

@Shov;_cmd 
Endif 
If  Bar$(Menu(0))="  Recover" 

T$=T$+"RECOVER  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Refuel" 

T$=T$+"REFUEL  " 

@Show  cmd 
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Endif 

If  Bar$(Menu(0))=M  Retrieve  " 

T$=T$+"RETRIEVE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Search" 

T$=T$+"SEARCH  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Silence  " 

T$=T$+"SILENCE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Speed" 

T$=T$+"SPEED  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Station" 

T$=T$+"STATION  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Take" 

T$=T$+"TAKE  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Turn" 

T$=T$+"TURN  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Weapons" 

T$=T$+"WEAPONS  " 

@Show_cmd 
Endif 
If  Bar$(Menu(0))="  Xmark" 

T$=T$+"XMARK  " 

(?Show_cmd 

Endif 

i 

@Main_menu       ! returns  to  main  menu,  allowing  only  one  "Cancel"  choice 
Return   !@Cancel_menu_read 


WEAPONS  sub-menu  selections 


Procedure  Weapons_menu_read 


1  f  !  !  !  1  t  !  (  1  1  t 

t  i  i  i  i  t  i 

i 

1  t  1  !  1  1  1  1  1 

!    Weapons 

menu(O) 

codes 

FREE 

/ 

TIGHT 

!  air 

12 

22 

!  surface 

13 

23 

!  submarine 

14 

24 

!  all 

15 

25 

!  enemy 

16 

26 

!  nuclear 

17 

27 
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1  !  conventional  18       28 

i  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

Menu  Off 
@Cclear  middle 


i 


If  Firsttime!         !##  Keeps  from  repeating  "Weapons  Tight/Free" 
If  Menu(0)>10  And  Menu(0)<20 

T$=T$+"FREE  " 

N%=20    !##  menu()  numbers 
Endif 
If  Menu(0)>20  And  Menu(0)<30 

T$=T$+"TIGHT  " 

N%=10 
Endif 
For  I%=N%+2  To  N%+8   !##  disables  either  Tight  or  Free  menu  items 

Menu  I%,2  ! 

Next  1%  ! 

Firsttime !=False   !##  keeps  from  re-entering  this  if-loop 
Endif 

If  Bar$(Menu(0))="  Nuclear" 

T$=T$+"NUCLEAR  " 

Menu  17,2 

Menu  18,2 

Menu  27,2 

Menu  28,2 

©Partial    !##  allows  use  of  same  menu  to  complete  Weapons  command 
Endif 

If  Bar$(Menu(0))="  Conventional  " 

T$=T$+"CONVENTIOMAL  " 

Menu  17,2 

Menu  18,2 

Menu  27,2 

Menu  28,2 

©Partial 
Endif 


i 


If  Bar$(Menu(0))="  Enemy" 

T$=T$+"ENEMY  " 

Menu  16,2 

Menu  17,2 

Menu  18,2 

Menu  26,2 

Menu  27,2 

Menu  28,2 

©Partial    !##  allows  completing  string  using  same  menu 
Endif 

If  Bar$(Menu(0))="  Surface" 

T$=T$+"SURFACE" 
@Tc_choice 
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Endif 

If  Bar$(Menu(0))="  Submarine" 

T$=T$+"SUBMARINE" 

@Tc_choice 
Endif 
If  Bar$(Menu(0))="  Air" 

T$=T$+"AIR" 

@Tc_choice 
Endif 
If  Bar$(Menu(0))="  All" 

T$=T$+"ALL" 

@Tc_choice 
Endif 

If  Aclaunch!         !##  Launch  seq  is  being  used 

@Show_cmd 

@Flt_commands_menu 
Else 

@Shcw_cmd 

@Force_menu_a   !##  will  branch  to  Force_menu_a  if  Aclaunch!  False. 

Endif 

Return   !@Weapons_menu_read 
i 

1  Launch  CRUISE  sub-menu  selections 

Procedure  Cruise_menu_read 

Menu  Off 

@Cclear_middle 

Menu  Kill   !##  allows  menu  to  only  be  used  once. 

Goto  Lcl    !##  returns  to  where  it  was  before  branching  to  Cruisejnenu, 
Return   !@Weapons_menu_read 

'  Activate  menu  selections 

Procedure  Activate_menu_read 

Menu  Off 

@Cclear_middle 

If  Bar$(Menu(0))="  Air" 

T$=T$+"AIR" 

Cstr$="  search  radar" 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Use_time_choice 
Endif 

If  Bar$(Menu(0))="  Approach  " 

T$=T$+"APPROACH" 

@Show_cmd 

Cstr$="  radar  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Use_time_choice 
Endif 
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If  Bar$(Menu(0))=M  Emitter" 

T$=T$+"EMITTER" 

@Eemitter 

Endif 
i 

If  Bar$(Menu(0))="  ESM" 

T$=T$+"ESM" 

@Use_time_choice 
Endif 

If  Bar$(Menu(0))="  Radar" 

T$=T$+"RADAR" 

@Show_cmd 

Cstr$="  (air/surface/approach)  " 

Print  At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Inc  Ytext% 

@Use_time_choice 
Endif 

If  Bar$(Menu(0))="  Sonar" 

T$=T$+"SONAR  " 

@Sonar_menu 

Endif 
i 

If  Bar$(Menu(0))="  Surface" 

T$=T$+"SURFACE" 

@Show_cmd 

Cstr$="  search  radar  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Use_time_choice 

Endif 
i 

If  Bar$(Menu(0))="  Survsat" 

T$=T$+"SURVSAT  " 

@Ssurvsat 
Endif 

If  Aclaunch!         !##  Launch  seq  is  being  used 

@Show_cmd 

@Flt_commands_menu 
Else 

@Show_cmd 

@Force_menu_a   !##  will  branch  to  Force_menu_a  if  Aclaunch!  False. 
Endif 

Return  !@Activate_menu_read 

i 

1  Silence  menu  selections 

Procedure  Silence_menu_read 

Menu  Off 

@Cclear_middle 
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If  Bar$(Menu(0))="  Air" 

T$=T$+"AIR" 

Cstr$="  search  radar" 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Name_time_choice 
Endif 

If  Bar$(Menu(0))="  Approach  " 
T$=T$+"APPROACH" 
Cstr$="  radar  " 

Print  At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 
Inc  Ytext% 
@Name_time_choice 

Endif 

i 

If  Bar$(Menu(0))="  Emitter" 
T$=T$+"EMITTER" 
@Name_time_choice 

Endif 

i 

If  Bar$(Menu(0))="  ESM" 

T$=T$+"ESM" 

Cstr$="  equipment  " 

Print  At(40-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Inc  Ytext% 

@Name_time_choice 
Endif 

If  Bar$(Menu(0))="  Radar" 

T$=T$+"RADAR" 

Cstr$="  (air/surface  equipment)  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Inc  Ytext% 

@Name_time_choice 
Endif 

If  Bar$(Menu(0))="  Sonar" 
T$=T$+" SONAR" 

Cstr$="  equipment  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Inc  Ytext% 
@Name_time_choice 
Endif 

If  Bar$(Menu(0))="  Surface" 

T$=T$+"SURFACE" 

Cstr$="  search  radar  equipment  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 


Inc  Ytext% 
@Name_time_choice 
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Endif 

If  Bar$(Menu(0))="  Survsat" 

T$=T$+"SURVSAT  " 

@Show_cmd 

Cstr$="Enter  satellite  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$)+"  " 
i 

@Show_cmd 

@Cclear_middle 

Cstr$="Enter  force  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 
T$=T$+Upper$(Fi$) 
@Tc_choice 
Endif 

If  Aclaunch!         !##  Launch  seq  is  being  used 

@Show_cmd 

@Flt_commands_menu 
Else 

@Show_cmd 

@Force_menu_a   !##  will  branch  to  Force_menu_a  if  Aclaunch!  False. 
Endif 
Return   !@Silence  menu  read 


Sonar  menu  selections 


Procedure  Sonar_menu_read 

Menu  Off 

@Cclear_middle 
i 

If  Bar$(Menu(0))="  BB" 

T$=T$+"BB" 

Endif 
i 

If  Bar$(Menu(0))="  CZ" 

T$=T$+"CZ" 
Endif 

If  Bar$(Menu(0))="  DP" 

T$=T$+"DP" 
Endif 

@Use_time_choice 


If  Aclaunch! 

@Shcw_cmd 

@Flt_commands_menu 
Else 

@Show  cmd 


!##  Launch  seq  is  being  used 
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@Force_menu_a   !##  will  branch  to  Force_menu_a  if  Aclaunch!  False. 
Endif 
Return 

1  Mission  menu  selections 

Procedure  Mission_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0))="  none" 

T$=T$+"MISSION  NONE  " 

@Show_cmd 
Endif 

If  Bar$(Menu(0))="  AEW" 

Cstr2$="MISSI0N  AEW" 

@Mission_common 
Endif 

If  Bar$(Menu(0))="  Airtanker" 

Cstr2$="MISSI0N  AIRTANKER" 

@Mission_common 
Endif 

If  Bar$(Menu(0))="  ASW" 

Cstr2$="MISSI0N  ASW" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  CAP" 

Cstr2$="MISSI0N  CAP" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  Decoy" 

Cstr2$="MISSI0N  DECOY" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  EW" 

Cstr2$="MISSION  EW" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  Jammer" 

Cstr2$="MISSI0N  JAMMER" 

@Mi  s  s  ion_common 
Endif 

If  Bar$(Menu(0))="  Reconn" 
Cstr2$="MISSI0N  RECONN" 
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@Mission_common 

Endif 

i 

If  Bar$(Menu(0))="  Relay" 

Cstr2$="MISSI0N  RELAY" 

@Mission_common 
Endif 

If  Bar$(Menu(0))="  Rescue" 

Cstr2$="MISSI0N  RESCUE" 

@Mission_common 
Endif 

If  Bar$(Menu(0))="  Search" 

Cstr2$="MISSI0N  SEARCH" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  Strcap" 

Cstr2$="MISSI0N  STRCAP" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  Strike" 

Cstr2$="MISSI0N  STRIKE" 

@Mission_common 

Endif 
i 

If  Bar$(Menu(0))="  Sttanker" 
Cstr2$="MISSI0N  STTANKER" 
@Mission_common 

Endif 

If  Bar$(Menu(0))="  Surcap" 

Cstr2$="MISSI0N  SURCAP" 

@Mission_common 
Endif 

If  Bar$(Menu(0))="  Surveillance  " 

Cstr2$="MISSI0N  SURVEILLANCE" 

@M i  s  s  ion_c  ommon 
Endif 
i   ______  jf  Launch  seq  is  being  used,  Aclaunch!  is  True.  -  -  - 

If  Aclaunch! 

@Flt_commands_menu 
Else 

@Force_menu_b   !##  will  branch  to  Force_menu_b  if  Aclaunch!  False. 
Endif 


Return   !@Mission_menu_read 
i 

Procedure  Flt_commands_menu_read 
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A/C  Commands  menu  selections 


Menu  Off 

@Cclear_middle 
i 

If  Aclaunch!         !##  Launch  seq  is  being  used 

T$=T$+"  " 
Endif 
i  ____________  menu  items  with  existing  Procedures 

i 

If  Bar$(Menu(0))="  Activate  " 

@Activate_menu 
Endif 

If  Bar$(Menu(0))=M  Altitude" 

T$=T$+"ALTITUDE  " 

@Altitude_entry 
Endif 

If  Bar$(Menu(0))="  Cease" 

T$=T$+"CEASE" 

@Ccease 
Endif 

If  Bar$(Menu(0))="  Course" 

T$=T$+"COURSE  " 

@Ccourse 

Endif 
i 

If  Bar$(Menu(0))="  Fire" 

T$=T$+"FIRE  " 

@Ff ire 

Endif 
i 

If  Bar$(Menu(0))="  Jam" 

T$=T$+"JAM  " 

@Jjam 
Endif 

If  Bar$(Menu(0))="  Proceed  " 
T$=T$+"PROCEED  " 
@Pproceed 

Endif 

i 

If  Bar$(Menu(0))="  Silence  " 

@Silence_menu 
Endif 

If  Bar$(Menu(0))="  Speed" 

T$=T$+"SPEED" 

@Sspeed 
Endif 

If  Bar$(Menu(0))="  Station" 
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T$=T$+"STATION  " 

@Sstation 

Endif 
i 

If  Bar$(Menu(0))="  Take" 
T$=T$+"TAKE  " 
@Ttake 

Endif 

If  Bar$(Menu(0))=M  Use" 

T$=T$+"USE  " 

@Uuse 
Endif 

If  Bar$(Menu(0))="  Weapons" 
If  Aclaunch! 

T$=T$+"WEAPONS  " 
Else 

T$="WEAPONS  " 
@F_check 
Endif 

Firsttime!=True 
@Weapons_menu 
Endif 


i  ____________  menu  items  with  new  Procedures 


i 


If  Bar$(Menu(0))="  Attach" 

T$=T$+"ATTACH" 
@Aattach 
Endif 


i 


If  Bar$(Menu(0))="  Barrier" 

T$=T$+"BARRIER" 

@Bbarrier 
Endif 


i 


If  Bar$(Menu(0))="  Chaff 

T$=T$+"CHAFF  " 

@Cchaff 
Endif 


i 


If  Bar$(Menu(0))="  Cover" 

T$=T$+"COVER  " 

@Ccover 
Endif 

If  Bar$(Menu(0))="  Deploy" 
T$=T$+"DEPLOY  " 
@Ddeploy 

Endif 

i 
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If  Bar$(Menu(0))="  Detach" 

T$=T$+"DETACH" 

@Show_cmd 

Cstr$="From  collective  flight." 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Time_entry 

Endif 
i 

If  Bar$(Menu(0))="  Inform" 

T$=T$+"INFORM  " 

@Show_cmd 

Cstr$="Enter  text  to  send  to  player.  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  20,Fi$ 

T$=T$+Upper$(Fi$) 

Endif  • 
i 

If  Bar$(Menu(0))="  Load" 

T$=T$+"LOAD" 

@Show_cmd 

@Ac_load 
Endif 

If  Bar$(Menu(0))="  Mission" 

@Mission_menu 
Endif 

If  Bar$(Menu(0))="  Reconn" 

T$=T$+"RECONN  " 

@Rreconn 

Endif 
i 

If  Bar$(Menu(0))="  Refuel" 

T$=T$+"REFUEL  " 

@Rrefuel 

Endif 
i 

If  Bar$(Menu(0))="  Report" 

T$=T$+"REPORT  " 

@Show_cmd 

@Report_menu 

Endif 
i 

If  Bar$(Menu(0))="  Turn" 

T$=T$+"TURN  " 

@Show_cmd 

@Course_entry 

@Show_cmd 

@Time_entry 
Endif 


menu  items  that  end  the  Launch  sequence 
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If  Bar$(Menu(0))="  Stop" 

Aclaunch!=False    !##  resets  Launch  sequence  flag 

T$=T$+"STOP  " 

Endif 
i 

If  Bar$(Menu(0))="  Bingo" 

Aclaunch!=False   !##  resets  Launch  sequence  flag 

T$=T$+"BINGO  " 

Endif 
i 

If  Bar$(Menu(0))="  Search" 

Aclaunch!=False    !##  resets  Launch  sequence  flag 

T$=T$+"SEARCH  " 
@Ssearch 
Endif 

If  Aclaunch!         !##  Launch  seq  is  being  used 

@Show_cmd 

@Flt_commands_menu 
Else 

@Show_cmd 

@Force_menu_b   !##  will  branch  to  Force_menu_b  if  Aclaunch!  False 
Endif 
Return   !@Flt_commands_menu_read 


1  Fit  Commands  REPORT  menu  selections 

Procedure  Report_menu_read 

Menu  Off 

@Cclear_middle 

@Cclear_command_box   !##  clears  it  even  if  cmd  not  Cancelled  or  Executed 

If  Bar$(Menu(0))="  Air" 

T$=T$+"AIR  " 

@Aair 

Endif 
i 

If  Bar$(Menu(0))="  ESM" 

T$=T$+"ESM  " 

@Eesm 

Endif 
i 

If  Bar$(Menu(0))="  On" 

T$=T$+"ON  " 

@0on 
Endif 


If  Bar$(Menu(0))="  Position" 

T$=T$+"POSITION  " 

opposition 
Endif 
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If  Bar$(Menu(0))="  Surface" 

T$=T$+"SURFACE  " 

@Ssurface 
Endif 

If  Bar$(Menu(0))="  Time" 

@Tttime 
Endif 

If  Bar$(Menu(0))="  Using" 

T$=T$+"USING  " 

@Uusing 

Endif 
i 

@Show_c'md 

@Force_menu_b 
Return   !@Report_menu_read 

GENERAL  WORKING  PROCEDURES 

Proc  to  test  keyboard  scan  &  window  use  

Procedure  Help_key_test 

If  Menu(14)=25088     !##  25088  is  the  scan  code  for  Help  key 

Wlx=300    !  maximum  638  (639  will  cause  the  window  to  NOT  reset) 

Wly=189    !  maximum  189  (menu  bar  takes  10  pix  lines  of  screen) 

Get  0 , 0 ,Wlx+l ,Wly+l ,Savewindowl$ 

Openw  l,Wlx,Wly 

Titlew  1, "Message  about  Help." 

Clearw  1 

Print  "This  is  a  help  paragraph.   It  can  be  set  up  so  that  it  is  right" 

Print  "where  you  want  it.   I  am  testing  the  Help  Key." 

Print  "   Free  RAM  =  " ;Fre(0) 

Print  "  Press  a  key  to  continue." 

Repeat 

Until  Inkey$<>"" 

Closew  1 

Put  0/0,Savewindowl$ 
Endif 

Closew  0    !##  Resets  screen  after  other  windows  are  used. 
Return 

'  DIOX  (Dialog  box  )  common  procedure 

'        Used  as  a  "shell"  procedure  to  help  create  dialog  boxes 

Procedure 

Draw_text_in_box(Ch$ , X_text , Y_text , Style , Char_color , Char_size , Hborder , Vborder , - 

Thick, Inverse) 
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Local 
Of f set , Width, Height , Fatness , Round, S ee thru, Xhot_upper ,Yhot_upper ,Xhot_lower , 
Yhot_lower , Temp$ 
If  X_text<0 

Round=True 
Else 

Round=False 
Endif 
If  Y_text<0 

Seethru=True 
Else 

Seethru=False 
Endif 

X_text=Abs(X_text) 
Y_text=Abs(Y_text) 
If  Xbios(4)=l  And  Char_size=l 

Char_size=6 
Else 

If  Xbios(4)=2  And  Char_size=l 

Char_size=13 
Endif 
Endif 

If  Char_size=32 
Height=32 
Width=16 
0ffset=4 
Else 

If  Char_size=13 
Height=16 
Width=8 
0ffset=3 
Else 

If  Char_size=6 
Height=8 
Width=8 
Offset=l 
Else 

If  Char_size=4 
Height=7 
Width=6 
Offset=2 
Endif 
Endif 
Endif 
Endif 

If  Xbios(4)=2 

Strip=(0) 
Else 

Strip=(-8) 
Endif 
Xhot_upper=X_text-Hborder-Thick+l 
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Yhot_upper=Y_text+0ffset-Height-Vborder-Thick+20+Strip 

Xhot_lower=X_text+Len(Ch$)*Width+Hborder+Thick-l 

Yhot_lower=Y_text+0ffset+Vborder+Thick+18+Strip 
i 

Def text  Char_color , Style , 0 , Char_size 

Graphmode  1 
i 

If  Thick>0 
If  Inverse 

Def fill  Char_color ,1 , 
Else 

Def fill  0,0,0 

Endif 

Color  1 
i 

If  Round 
If  See thru 
Rbox 
(X_text-Hborder)-l, (Y_text+0f fset-Height-Vborder)-l , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Off set+Vborder)+l 
Else 
Prbox 
(X_text-Hborder)-l,(Y_text+Offset-Height-Vborder)-l, (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+0ff set+Vborder)+l 
Endif 
Else 

If  Seethru 
Box 
(X_text-Hborder)-l , (Y_text+Offset-Height-Vborder)-1 , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Of fset+Vborder)+l 
Else 
Pbox 
(X_text-Hborder)-l, (Y_text+Of fset-Height-Vborder)-l , (X_text+Len(Ch$)*Width- 
+Hborder)+l , (Y_text+Of f set+Vborder)+l 
Endif 

Endif 

i 

For  Fatness=l  To  Thick 

If  Round 
Rbox 
(X_text-Hborder) -Fatness, (Y_text+Offset-Height-Vborder) -Fatness , (X_text+Len(Ch$) 

*Width+Hborder)+Fatness , (Y_text+0f f set+Vborder)+Fatness 
Else 
Box 
(X_text-Hborder) -Fatness, (Y_text+Offset-Height-Vborder)-Fatness , (X_text+Len(Ch$) 

*Width+Hborder)+Fatness , (Y_text+Of f set+Vborder)+Fatness 
Endif 

Next  Fatness 
i 

Endif 


71 


If  Seethru 
Graphmode  2 

Text  X_text,Y_text,Ch$ 
If  Inverse 

Get  Xhot_upper , Yhot_upper , Xhot_lower , Yhot_lower , Temp$ 
Put  Xhot_upper,Yhot_upper,Temp$,12 
Endif 

Goto  Buttonendl 
Endif 

If  Inverse  And  Thick>0 

Graphmode  3 

Else 

If  Inverse  And  Thick<=0 

Graphmode  4 

Else 

If  Not  (Inverse) 

Graphmode  2 

Endif 

Endif 

Endif 

Text  X_text,Y_text,Ch$ 

Buttonendl : 

Graphmode  1 

Return   !  DIOX  common  procedure 
i 

1        save  selected  'blank1  areas  of  screen  to  use  as  "erasers"  later 

i 

Procedure  Save_blanks 
Cls 

Get  0,11, 639, 140, Middle_box$ 
Get  9,162,625,194,Command_box$ 

Return 

i 

1  response  to  ??  dialog  box 

Procedure  My_thesis 

Menu  Off 

Mtxt$="  Thesis  by  LCDR  G.L.Yungk  advisor  -  CDR  J.  Stewart" 

Alert  l,Mtxt$,l,"  OK  ",A 

Clr  A 

Return 
i 

1  Initialization/dimensioning 

Procedure  Init 

Setcolor  2,1911    !##  Turns  green  background  white,  (for  windowing) 

Dim  Bar$(90)       !##  Main  menu  bar. 

F_name$=""         !##  Common  start  to  "Force"  commands 

Ytext%=8  !##  Common  line  to  start  text  on. 

Aclaunch!=False    !##  allows  use  of  individual  Procs/menus  in  Launch  seq. 

Lat_str$="Enter  latitude    (0-89N  or  S) :  "   !##  To  allow  use  of  err-chkng 

Long_str$="Enter  longitude  (0-180E  or  W)  :  "  !##  with  common  Procedures. 
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Return 


Store  words/phrases  in  a  string  &  prints  in  Command  box 


Procedure  Show_cmd 

@Cclear_command_box 

If  Len(T$)<=100 
Deftext  1,0,0,9 
Text  15,175,Mid$(T$,0,50) 
Text  15,190,Mid$(T$,51) 

Else 

Deftext  1,0,0,6 
Text  15,170,Mid$(T$,0,75) 
Text  15, 180, Mid$(T$, 76,75) 
Text  15,190,Mid$(T$,151,75) 

Endif 


!##  100  characters,  2  lines  max 

!##  text  size  allows  50  characters  per  line 

!##  first  line  in  command  box 

!##  second  line  in  command  box 

!##  101  -  225  characters,  3  lines  max 

!##  normal  text,  allows  75  characters  per  line 


Deftext  1,0,0,6 
Return 


!##  resets  text  to  normal  size  &  color 


1  Draw  the  Command,  EXECUTE,  &  CANCEL  boxes 

Procedure  Draw_box 

Deftext  1,0,0,8 

Text  460,155,"EXECUTE  command" 

Text  15,155, "CANCEL  command" 

Color  2 


Defline  1,2,0,0 
Box  450,142,630,160 
Box  5,142,175,160 
Defline  1,5,0,0 
Box  5,160,630,196 
Color  1 

Defline  1,1,0,0 

Deftext  1,0,0,6 

Return   !@Draw_box 


line  for  EXECUTE  box 

EXECUTE  box 

CANCEL  box 

line  for  Command  box 

Command  box 

resets  color  to  black 

resets  line  to  normal  width 

resets  text  to  normal  size  &  color 


1  Test  for  mouse  In  the  EXECUTE  box 

Procedure  Inbox_execute 

Deftext  2,0,0,8 

Text  460, 155, "EXECUTE" 

Deftext  1,0,0,6         !##  resets  text  type  to  normal 

Sound  1 ,15,5,4,3 

Sound  1,15,8,4,3 

Sound  1 ,15,5,4,3 

Sound  1,0,0,0 

On  Menu  Obox  1,450,142,180,18  Gosub  Outbox_execute 

On  Menu  Button  1,1,1  Gosub  Send_string 

Do 

On  Menu 

Loop 


Return 
i 

i 


Test  for  mouse  Out  of  EXECUTE  box 
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Procedure  Outbox_execute 

Deftext  1,0,0,8 

Text  460,155, "EXECUTE" 

Deftext  1,0,0,6         !##  resets  text  type  to  normal 

On  Menu  Ibox  1,450,142,180,18  Gosub  Inbox_execute 
Return 

1  Test  for  mouse  In  CANCEL  box 

Procedure  Inbox_cancel 

Sound  1,15,10,4 

Deftext  2,0,0,8 

Text  15, 155, "CANCEL" 

Deftext  1,0,0,6         !##  resets  text  type  to  normal 

Sound  1,0,0,0 

On  Menu  Obox  2,5,142,170,18  Gosub  Outbox_cancel 

On  Menu  Button  1,1,1  Gosub  Cancel_string 

Do 

On  Menu 

Loop 
Return 

1  Test  for  mouse  Out  of  CANCEL  box 

Procedure  0utbox_cancel 

Deftext  1,0,0,8 

Text  15,155, "CANCEL" 

Deftext  1,0,0,6         !##  resets  text  type  to  normal 

On  Menu  Ibox  2,5,142,170,18  Gosub  Inbox_cancel 
Return 

1  Clear  command  box 

Procedure  Cclear_command_box 
Put  9,162,Command_box$,3 

Return 

i 

1  Send  completed  "order"  to  RESA 

Procedure  Send_string 

If  T$<>""    !##  string  must  have  something  in  it. 
@Cclear_middle 

@Cclear_command_box 

i 

1   Open  "",#1,"AUX:" 
i 

If  Out?(l)=-l       !##  RS232  port  is  (1).   -1  is  ready;  0  is  not, 
Print  At(l, 4) , -"sending:  " ; 

For  1=1  To  Len(T$)         !##  maybe  needs  Len(T$)-l 
Pause  1 

Out  l,Asc(Mid$(T$,I,l))   !##  output  to  RS232  port 
Out  2,Asc(Mid$(T$,I,l))   !##  output  to  screen 
Next  I 
Endif 

1   Close  #1 
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T$="  " 

Endif 

Return 
i 

1  Cancel  order/command  &  clear  string 

Procedure  Cancel_string 

@Cclear_middle 

@Cclear_command_box 

Print  At(25, 10) ; "command  cancelled." 

T$="" 

Return 

i 

1  clear  middle  of  screen 

Procedure  Cclear_middle 

Put  0,ll,Middle_box$,3 

Ytext%=8  !##  To  reset  first  text  line  to  row  8 

Return 
i 


i  Error  Alert  box  

Procedure  Entry_error 

@Entry_error_sound 

Alert  3,"  Entry  error,   try  again!", 1,"  OK  ",A 

Clr  A 
Return 

•  Error  sound  

Procedure  Entry_error_sound 

Sound  1,12,12,4 

Pause  3 

Sound  1,0,0,0 
Return 

i  Force  addressee  check  

Procedure  F_check 

If  F_name$=""        !##  Ensures  an  addressee  for  Force  commands. 
Mtxt$="  This  command  requires  an  addressee  (unit)." 
@Entry_error_sound 
Alert  l,Mtxt$,l,"  OK  ",A 
@F_entry 

Endif 

If  Not  Instr(T$,F_name$)  !##  To  precede  Force  cmds  by  "FOR  'addressee'  " 
T$=F_name$+"  "+T$ 

Endif 

Clr  A 

Print  At(38-Int(Len(F_name$)/2), 19);"   "+F_name$+" 
Return 

i  Force  addressee  entry  

Procedure  F_entry 

F_name$="F0R  " 

Print  At(22,Ytext%) ; "Enter  name  of  addressee  (unit):  "; 

Form  Input  5,Fi$ 

F_name$=F_name$+Upper$(Fi$) 

@Cclear_middle 

75 


Print  At(38-Int(Len(F_name$)/2), 19);"   "+F_name$+"   "; 
Return 
i  Latitude  entry  check  

Procedure  Lat_check 
Cx%=Crscol 
Cy%=Crslin 
Form  Input  3,Lat$ 

Ltr=Asc(Right$(Lat$))   !##  ASCII  value  of  direction  (78,83,110,115) (NSns) 
If  Val?(Lat$)>0        !##  is  there  a  digit  in  the  string? 

If  Val(Lat$)>=0  And  Val(Lat$)<90    !##  Is  number  value  betwn  0  and  90? 
If  Ltr=78  Or  Ltr=83  Or  Ltr=110  Or  Ltr=115    !##  correct  direction? 

Goto  Last_lat 
Endif 
Endif 
Endif 

@Entry_error 
Print  At(Cx%,Cy%);" 
Print  At(Cx%,Cy%) ; 
@Lat_check 
Last_lat : 
Return 


!##  clear  cursor  area 
!##  reposition  cursor 
!##  check  it  again 
!##  latitude  OK;  continue. 


Longitude  entry  check 


Procedure  Long_check 


Cx%=Crscol 


o 
A.— i 


Cy%=Crslin 

Form  Input  4,Long$ 

Ltr=Asc(Right$(Long$))  !##  ASCII  value  of  direction  (69 ,87 ,101 ,119) (EWew) 

If  Val?(Long$)>0      !##  is  there  a  digit  in  the  string? 

If  Val(Long$)>=0  And  Val(Long$)<181  !##  Is  number  value  betwn  0  and  180? 
If  Ltr=69  Or  Ltr=87  Or  Ltr=101  Or  Ltr=119    !##  correct  direction? 

Goto  Last_long 
Endif 
Endif 
Endif 

@Entry_error 

Print  At(Cx%,Cy%);"  "; 

Print  At(Cx%,Cy%); 
@Long_check 
Last_long: 
Return 


!##  clear  cursor  area 

!##  reposition  cursor 

!##  check  it  again 

!##  longitude  OK;  continue. 


i  Pure  number  entry  and  checking  

1  !##  need  lolim%,  hilim%,  numlen%  as  input; 

1  !##  gives  Pnum$  as  output. 

Procedure  Number_entry 

Cx%=Crscol   !  remember  x  posit  of  cursor 

Cy%=Crslin   !  remember  y  posit  of  cursor 

Form  Input  Numlen%,Pnum$ 

1  Val(Pnum$)  =  actual  numeric  value  of  string  Pnum$. 

1  Val?(Pnum$)  =  number  of  characters  in  Pnum$  that  are  numeric. 

1  Len(Pnum$)   =  length  of  string  Pnum$. 

If  Val(Pnum$)<Lolim%  Or  Val(Pnum$)>Hilim%  Or  Val?(Pnum$)<>Len(Pnum$) 


76 


Print  At(Cx%,Cy%) ;"     " ; 
Print  At(Cx%,Cy%) ; 
@Entry_error 
(§Number_entry 
Endif 

Return 

i 

•  Common  code  for  Aircraft  MISSION  menu  selections 


Procedure  Mission_common 

Print  At(40-Int(Len(Cstr2$)/2) ,Ytext%);Cstr2$;     !##  'Mission'  string 

Inc  Ytext% 

T$=T$+Cstr2$ 

@Tc_choice 

If  Not  Aclaunch!    !##  not  using  Launch  sequence 

@Show_cmd 

Endif 

Return 
i 

1  allows  choice  between  TIME  &  continue. 

Procedure  Tc_choice 

@Show_cmd 

Alert  2,"   select  ...  ",2,"TIME  continue", C 

If  C=l 

@Time_entry 

Endif 

Clr  C 

Return 

i 

1  Common  minute  entry 

Procedure  Minute_entry 

Inc  Ytext% 

Inc  Ytext% 

Print  At(28,Ytext%);"Enter  minutes  (1-9999)?  "; 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+Pnum$ 
Return 

'  Maneuvers  sub-sub-proc 

Procedure  Time_entry 

Print  At(26,Ytext%); "Enter  start  minute  (1-999):  "; 

Lolim%=l 

Hilim%=999 

Numlen%=3 

@Number_entry 

T$=T$+"  TIME  "+Pnum$ 

Ytext%=Crslin 
Return 
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1  Maneuvers  sub-sub-proc 

Procedure  Course_entry 

Print  At(26,Ytext%) ; "Enter  course  (0-359  True):  "; 

Lolim%=0 

Hilim%=359 

Numlen%=3 

@Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Return 
i 

1  Maneuvers  sub-sub-proc 

Procedure  Bearing_entry 

Print  At(26,Ytext%) ; "Enter  bearing  (0-359  True):  "; 

Lolim%=0 
Hilim%=359 
Numlen%=3 
@Number_entry 
T$=T$+Pnum$ 
Ytext%=Crslin 
Return 

1  Maneuvers  sub-sub-proc 

Procedure  Speed_entry 

Print  At(27,Ytext%) ;"Enter  speed  (1-9999  kts) :  "; 

Lolim%=l 

Hilim%=9999 
Numlen%=4 
@Number_entry 
T$=T$+"  "+Pnum$ 
Ytext%=Crslin 
Return 

1  Maneuvers  sub-sub-proc 

Procedure  Distance_entry 

Print  At(21,Ytext%) ;"Enter  distance  or  range  (1-9999  nmi)  : 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+"  "+Pnum$ 

Ytext%=Crslin 
Return 

1  sub-sub  proc 

Procedure  Altitude_entry 

Cstr$="Enter  altitude  (1-90,000  ft):  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Cstr$="" 

Lolim%=l 

Hilim%=90000 
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Numlen%=5 

@Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Return 

i 

i 

Procedure  Name_time_choice 
@Show_cmd 

Alert  2,"        select  ...       ",3,"<name>  TIME  continue", A 
If  A=l 

@Cclear_middle 

Cstr$="Enter  equipment  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

Ytext%=Crslin 

If  Bar$(Menu(0))="  Emitter" 
@Name_time_choice 

Else 

@Tc_choice   !##  Time/continue  choice 

Endif 

Endif 
i 

If  A=2 

@Time_entry 
Endif 

Clr  A   !##  don't  clear  A 
Return 


i 


Procedure  Use_time_choice 
@Show_cmd 
Alert  2,"        select  ...       ",3,"USING  TIME  continue" ,A 

If  A=l 

Print  At(26,Ytext%) ;"Using  what  equipment?  :  "; 

Form  Input  5,Fi$ 

T$=T$+"  USING  "+Upper$(Fi$) 

Ytext%=Crslin 

i 

@Tc_choice   !##  Time/continue  choice 
i 

Endif 

If  A=2 

@Time_entry 

Endif 
i 

Clr  A 
Return 

i 


Track  common  entry 
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!##  format  is  XX####;  ie.  AS234 
'    !##  for  letters,  gives  Chr$(B)  as  output  of  last  character. 
1    !##  for  numbers,  need  lolim%,  hilim%,  numlen%  as  input;  Pnum$  is  output 


i 


Procedure  Track_entry 

Cx%=Crscol  !  remember  x  posit  of  cursor 
Cy%=Crslin  !  remember  y  posit  of  cursor 
N%=Cx%       !  set  baseline  number;  allows  certain  #  of  iterations 


character  portion  of  track  number, 


i  _  _  _  _ 

Te: 

B=Asc(Upper$(Chr$(Inp(2)))) 

If  B<65  Or  B>90     ! ##  if  char  is  not  A  -  Z,  then... 

Print  At(Cx%,Cy%);"  "; 

Print  At(Cx%,Cy%); 

@Entry_error       !##  alert  box  &  sound 

Goto  Te  !##  recursion 

Endif 

Print  Chr$(B); 
T$=T$+Chr$(B) 
Inc  Cx% 

Print  At(Cx%,Cy%); 
If  N%=Cx%-l    !##  allows  only  one  use  of  this  IF  loop 

Goto  Te 
Endif 


numeral  portion  of  track  number 


Lolim%=0 
Hilim%=999 


Numlen%=3 

@Number_entry 

T$=T$+Pnum$ 

Return   !@Track_entry 
i 

1  Comms  text  entry 

Procedure  Text_entry   !##  need  to  enter  with  I%=  to  number  of  text  lines. 
@Show_cmd 
@Cclear_middle 
N%=1 

Ccomtxt2  : 

Mtxt$="   Enter  text?    (max  "+Str$(I%)+"  lines)  " 
Alert  2,Mtxt$,0,"  Yes   No  (BT)",A 
If  A=l 

Print  At(2/N%+3);Str$(N%)+":  "; 

Form  Input  75,Fi$ 

T$=T$+Upper$(Fi$)+"  " 


Inc  N% 

If  N%<I%+1 

!## 

allows 

only 

1% 

lines 

of 

text 

Goto  Ccomtxt2 

Endif 

Endif 

Clr  A 

T$=T$+"BT" 

80 


Return 

'  allows  completion  of  command  string  using  same  menu 

Procedure  Partial 

Menu  Off   !##  displays  menu  bar  in  "normal"  mode 

@Show_cmd 

Do 

On  Menu 

Loop 
Return 

############################################################################# 

COMMAND  PROCEDURES 

############################################################################# 

ASTAB  sub-proc 
Procedure  Bbearing 
Brng!=False 

Mtxt$="    Bearing  &  Range  FROM...   " 

i 

Brng: 

Alert  2,Mtxt$,0, "Force  Position  Track", A 
i 

If  A=l  Then 

T$=T$+"FORCE  " 

@Show_cmd 

Cstr$="Enter  Force  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 
Endif 

If  A=2  Then 

T$=T$+"POSITION  " 

Print  At (20, 11) ;Lat_str$; 

@Lat_check 

Print  At(20,12) ;Long_str$; 

@Long_check 

T$=T$+Upper$(Lat$)+"  "+Upper$(Long$) 
Endif 

If  A=3 

T$=T$+"TRACK  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 
Clr  A 
@Show_cmd 
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If  Not  Brng!   !##  allows  ONE  loop  in  this  procedure. 

Mtxt$="    Bearing  &  Range  TO...   " 

Brng!=True 

@Cclear_middle 

T$=T$+"  " 

Goto  Brng 
Endif 

Return 

i 

1  ASTAB  sub-proc 

Procedure  Ccpa 
Cpa!=False 

Mtxt$="     CPA  of. . .   " 

i 

Cpa : 

Alert  2,Mtxt$,0,"Force  Track  ",A 
i 

If  A=l  Then 

T$=T$+"FORCE  " 

@Show_cmd 

Cstr$="Enter  Force  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Endif 

i 

If  A=2 

T$=T$+"TRACK  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 
Clr  A 

If  Not  Cpa!   !##  allows  ONE  loop  in  this  procedure. 

Mtxt$="     CPA  to. . . 

Cpa!=True 

@Show_cmd 

@Cclear_middle 

T$=T$+"  " 

Goto  Cpa 

Endif 

Return 
i 

1  ASTAB  sub-proc 

Procedure  Cclassify 

@Show_cmd 

Cstr$="Enter  track  number.-  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
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@Cclear_middle 

@Show_cmd 

Cstr$="Enter  classification:  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

Return 
i 

1  ASTAB  sub-proc 

Procedure  Ddrop 

Alert  2,"     DROP  track...     ",0,"Old  Range  Track  #  ",A 
i 

If  A=l  Then 

T$=T$+MOLD  " 

@Show_cmd 

Cstr$=" (range) ;  enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 

T$=T$+"  " 

@Show_cmd 

@Cclear_middle 

Cstr$=" (thru) ;  enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 

If  A=2  Then 

T$=T$+"RANGE  " 

@Show_cmd 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 

T$=T$+"  " 

@Show_cmd 

@Cciear_middle 

Cstr$=" (thru) ;  enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 

If  A=3 

Mtxt$="   Drop  a  track?   " 
Ddrop : 

Alert  2,Mtxt$,0,"  Yes   No",B 
If  B=l 

Cstr$="Enter  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 

Mtxt$="   Drop  another  track?   " 

@Show_cmd 

T$=T$+"  " 
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ASTAB  sub-proc 
",0,"  ASTAB  Plot", A 

",0, "ASTAB  #  A11",B 


Goto  Ddrop 
Endif 
Endif 
Clr  A,B 
Return 

i 

Procedure  Pprint 

Alert  2,"    Print. . . 
If  A=l 

T$=T$+"ASTAB  " 

Alert  2,"    Select. . 

If  B=l 

Cstr$="Enter  ASTAB  number:  " 
Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Lolim%=0 
Hilim%=6 
Numlen%=l 
@Number_entry 
TS=T$+Pnum$ 
Endif 
If  B=2 

T$=T$+"ALL" 
Endif 
Endif 
Clr  B 


If  A=2 

T$=T$+"PLOT  " 
Alert  2,"    Plot. . 
If  B=l 

T$=T$+"INTERVAL  " 
@Hinute_entry 
Endif 
Endif 
Clr  A,B 
Return 


"  ,0,"lnterval  continue", B 


1  Graphics  sub-proc 

Procedure  Ccenter 

Mtxt$="         CENTER  (  plot  at  ...  )" 

Alert  2,Mtxt$,0,"FORCE  POSITION  TRACK", A 
If  A=l  Then 

T$=T$+"FORCE" 

Print  At(30,8);T$; 

Print  At (17 ,10) ; "Enter  name  of  force  to  be  centered:  "; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
Endif 
If  A=2  Then 

T$=T$+"P0SITI0N" 

Print  At(30, 9)  , -"Center  plot  at  ..." 
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Print  At(20,ll);Lat_str$; 

@Lat_check 

Print  At (20 ,12) ;Long_str$; 

@Long_check 

T$=T$+"  "+Upper$(Lat$)+"  "+Upper$(Long$) 
Endif 
If  A=3  Then 

T$=T$+"TRACK  " 

Cstr$=T$+"at  (track  number):  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

@Track_entry 
Endif 
Clr  A 
Return 

1  Graphics  sub-proc 

Procedure  Rradius 

Print  At(35,8) ;T$ 

Print  At(20,10) ;"Enter  radius  of  plot  (1-9999  nmi) :  "; 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+Pnum$ 
Return 

1  Graphics  sub-proc 

Procedure  Sshift 

Print  At(35,6);T$ 
i 

Print  At(10,8) ;"Enter  distance  to  shift  center  of  plot  (1-9999  nmi):  " ; 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+Pnum$ 

i 

Print  At(15,9);"Enter  direction  of  shift  (0-359  True):  "; 
Lolim%=0 
Hilim%=359 
Numlen%=3 
@Number_entry 
T$=T$+"  "+Pnum$ 
Return 

'  Graphics  sub-proc 

Procedure  Llabel 

©Label ( " " , *Label_return$ ) 

If  Instr(Label_return$,"al_labM)>0 
T$=T$+"ALL" 

Endif 

If  Instr(Label_return$,"large_lab")>0 
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T$=T$+"LARGE" 
Endif 
If  Instr(Label_return$,"small_lab")>0 

T$=T$+"SMALL" 
Endif 
If  Instr(Label_return$,"off_lab")>0 

T$=T$+"OFF" 
Endif 
Return 

1  Label  DIOX 

Procedure  Label(Preselect$ ,Postselect) 

Hidem 

Local 
Screen$ , Temp$ , Xm , Ym , Button$ , Radiol_old$ , Radio2_old$ , Radio3_old$ , Radio4_old$ , - 
Radio5_old$ , Radiol_new$ , Radio2_nev;$ , Radio3_new$ , Radio4_new$ , Radio5_new$ , S tat_exi 

Sget  Screen$ 

Print  At(36,6) ;T$ 

Local  All_lab_stat$,All_lab_stat 

Local  Large_lab_stat$ ,Large_lab_stat 

Local  Small_lab_stat$ , Small_lab_stat 

Local  Off_lab_stat$,Off_lab_stat 

@Drawshapes_label 

@All_lab(0) 

@Large_lab(0) 

@Small_lab(0) 

@Off_lab(0) 

Showm 

Do 

If  Mousek=l 

Mouse  Xm,Ym,Void 

@Find_button_label (Xm , Ym , *Button$ ) 
If  Button$="al_lab" 
If  All_lab_stat 
@All_lab(0) 

Let  All_lab_stat=False 
Let  All_lab_stat$=IMI 
Let  Stat_exit=False 
Else 

@All_lab(-l) 
Let  All_lab_stat=True 
Let  All_lab_stat$="al_labM 
Let  Stat_exit=True 
Endif 
Endif 

If  Button$="large_lab" 
If  Large_lab_stat 
@Large_lab(0) 
Let  Large_lab_stat=False 
Let  Large_lab_stat$="M 
Let  Stat_exit=False 
Else 
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@Large_lab(-l) 
Let  Large_lab_stat=True 
Let  Large_lab_stat$="large_lab" 
Let  Stat_exit=True 
Endif 
Endif 

If  Button$="small_labH 
If  Small_lab_stat 
@Small_lab(0) 
Let  Small_lab_stat=False 
Let  Small_lab_stat$="" 
Let  Stat_exit=False 
Else 

@Small_lab(-l) 
Let  Small_lab_stat=True 
Let  Small_lab_stat$="small_lab" 
Let  Stat_exit=True 
Endif 
Endif 

If  Button$="off_lab" 
If  Off_lab_stat 
@Off_lab(0) 

Let  Off_lab_stat=False 
Let  Off_lab_stat$="" 
Let  Stat_exit=False 
Else 

@Off_lab(-l) 
Let  Off_lab_stat=True 
Let  Off_lab_stat$="off_lab11 
Let  Stat_exit=True 
Endif 
Endif 
Endif 

Exit  If  False 

Exit  If  (Button$="al_lab") 
Exit  If  (Button$="large_lab") 
Exit  If  (Button$="small_lab") 
Exit  If  (Button$="off_lab") 
Pause  4 
Loop 
If  Stat_exit 

Temp$=Temp$+ll("+All_lab_stat$+11)" 
Temp$=Temp$+" ( "+Large_lab_stat$+" ) " 
Temp$=Temp$+" ( "+Small_lab_stat$+" ) " 
Temp$=Temp$+ll("+Off_lab_stat$+11)" 
*Postselect=Temp$ 
Endif 
Do 

@Find_button_label (Xm , Ym , *Button$ ) 
Exit  If  Stat_exit 
Loop 
Pause  7 
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Sput  Screen$ 
Return 
Procedure  Drav;shapes_label 

Box  160,86,451,30 
Return 
Procedure  All_lab(Selected) 

@Draw_text_in_box( "ALL" ,190,74,0,1,6,12,1,2, Selected) 
Return 
Procedure  Large_lab(Selected) 

@Draw_text_in_box( "LARGE" ,251,74,0,1,6,4,1,2, Selected) 
Return 
Procedure  Small_lab(Selected) 

@D raw_text_in_b ox ( "SMALL" ,320,74,0,1,6,4,1,2, Selected) 
Return 
Procedure  Off_lab(Selected) 

@Draw_text_in_box( "OFF", 397, 74, 0,1, 6, 12, 1,2, Selected) 
Return 
Procedure  Find_button_label(X_mouse,Y_mouse ,Button_selected) 

If  (X_mouse>176)  And  (X_mouse<228)  And  (Y_mouse>64)  And  (Y_mouse<78) 
*Button_selected="al_lab" 
Goto  Found_button_label 
Endif 

If  (X_mouse>245)  And  (X_mouse<297)  And  (Y_mouse>64)  And  (Y_mouse<78) 
*Button_selected="large_lab" 
Goto  Found_button_label 
Endif 

If  (X_mouse>314)  And  (X_mouse<366)  And  (Y_mouse>64)  And  (Y_mouse<78) 
*Button_selected="small_lab" 
Goto  Found_button_label 
Endif 

If  (X_mouse>383)  And  (X_mouse<435)  And  (Y_mouse>64)  And  (Y_mouse<78) 
*Button_selected="off_lab" 
Goto  Found_button_label 
Endif 

*Button_selected="  " 
Found_button_label : 
Return 

1  Graphics  sub-proc 

Procedure  Llob 

Mtxt$="       LOB      " 

Alert  2,Mtxt$,0,"ALL  FORCE  OFF", A 

If  A=l  Then 

T$=T$+"ALL" 
Endif 
If  A=2  Then 

T$=T$+"F0RCE" 
Endif 
If  A=3  Then 

T$=T$+"0FF" 
Endif 
Clr  A 
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Return 

i 

1  Graphics  sub-proc 

Procedure  Mmark_track 
Mtxt$="     MARK  TRACK 

Alert  2,Mtxt$,0,"ENEMY  FRIENDLY  NEUTRAL", A 
If  A=l  Then 

T$=T$+"ENEMY  " 
Endif 
If  A=2  Then 

T$=T$+"FRIENDLY  " 
Endif 
If  A=3  Then 

T$=T$+"NEUTRAL  " 
Endif 

Tl$="    "+T$ 
Clr  A 

Alert  2,T1$,0,"AIR  SUB  SURFACE", A 
If  A=l  Then 

T$=T$+"AIR  " 
Endif 
If  A=2  Then 

T$=T$+"SUB  " 
Endif 
If  A=3  Then 

T$=T$+"SURFACE  " 
Endif 

Cstr$=T$+"  (at  position. .. )" 
Print  At(40-Int(Len(Cstr$)/2)  ,Ytext%)  ,-Cstr$ 
Inc  Ytext% 
Inc  Ytext% 

Print  At(27,Ytext%) ; "Enter  unit's  latitude:  " ; 
@Lat_check 
Inc  Ytext% 

Print  At(27,Ytext%); "Enter  unit's  longitude:  "; 
@Long_check 
T$=T$+Upper$(Lat$)+"  "+Upper$(Long$) 


Inc  Ytext°- 


o 

q. 


Print  At (23, Ytext%) ; "Choose  name  for  this  track:  "; 
Form  Input  5,Fi$ 
Inc  Ytext% 

Print  At(17 ,Ytext%) ; "Choose  second  name  for  this  track  (optional) 
Form  Input  5,Mtk_name2$ 

T$=T$+"  "+Upper$(Fi$)+"  "+Upper$(Mtk_name2$) 
Clr  A 
Return 

'  Graphics  sub-proc 

Procedure  Mmark_bearing 

Print  At(35,Ytext%) ;T$ 

Inc  Ytext% 
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Inc  Ytext% 

Print  At(25 , 10) ;"Choose  name  for  this  bearing:  "; 
Form  Input  5,Fi$ 
T$=T$+Upper$(Fi$)+"  " 
Inc  Ytext% 
@Bearing_entry 
Return 

1  Graphics  sub-proc 

Procedure  Uunmark_track 

Print  At(30,8) ;T$ 

Print  At(15, 10) ;"Enter  (first)  name  of  track  to  unmark: 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 
Return 

'  Graphics  sub-proc 

Procedure  Pplace 

Mtxt$="     PLACE       " 

Alert  2,Mtxt$,0,"XMARK  CIRCLE  GRID",A 

If  A=l  Then 

T$=T$+"XMARK  " 
Endif 
If  A=2  Then 

T$=T$+"CIRCLE  " 
Endif 
If  A=3  Then 

T$=T$+"GRID  " 
Endif 

Clr  A 

i 

Mtxt$="   "+T$+"        on  " 

Alert  2,Mtxt$,0,"FORCE  POSITION  TRACK", A 
If  A=l  Then 

T$=T$+"F0RCE  " 
Endif 
If  A=2  Then 

T$=T$+"P0SITI0N  " 
Endif 
If  A=3  Then 

T$=T$+"TRACK  " 
Endif 
Clr  A 

Return 

i 

1  Graphics  sub-proc 

Procedure  Ppim 

Mtxt$="      PIM        " 

Alert  2, Mtxt$,0, "DEFINE  ADD  CHANGE" , A 

If  A=l  Then 

T$=T$+"DEFINE" 

Endif 
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If  A=2  Then 

T$=T$+"ADD" 
Endif 
If  A=3  Then 

T$=T$+" CHANGE" 
Endif 
Clr  A 
Return 

1  player  COMMS  sub-proc 

Procedure  Iintell 

Alert  2,"  Intelligence  report  for. .." ,0, "Blue  Orange  ",A 
If  A=l  Then 

T$=T$+"BLUE" 
Endif 
If  A=2  Then 

T$=T$+" ORANGE" 
Endif 
Clr  A 

Get  0,140 ,639, 162, Canex_box$ 

Alert  2,"        Select...      ",0,"View  Time  continue", A 

If  A=l  Then 

@Show_cmd 

Cstr$="Enter  view  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$)+"  " 

I%=20 

@Text_entry 
Endif 
If  A=2  Then 

@Time_entry 

I%=20 

@Text_entry 

T$=T$+"  " 
Endif 
Clr  A 

Put  0,140,Canex_box$ 
Return 

1  player  COMMS  sub-proc 

Procedure  Mmessage 

Alert  2,"    Message  to...   ",0,"Blue  Orange  ",A 
If  A=l 

T$=T$+"BLUE  " 
Endif 
If  A=2 

T$=T$+"ORANGE  " 
Endif 
Clr  A 
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@Show_cmd 

Cstr$="Enter  view  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Form  Input  5,Fi$ 
T$=T$+Upper$(Fi$)+"  " 
I%=8 

@Text_entry 
Return 

1  Umpire  sub-proc 

Procedure  Ppause 

Mtxt$="      PAUSE  Pause:  game  pauses.  " 
Mtxt$=Mtxt$+"Lock:  on  stations.  " 
Mtxt$=Mtxt$+"Refresh:  of  remote  db." 
Alert  2/Mtxt$,0/"PAUSE  LOCK  REFRESH", A 
If  A=2  Then 

T$=T$+"LOCK  " 
Endif 
If  A=3  Then 

T$=T$+"REFRESH  " 

Endif 

Clr  A 

Return 
i 

1  Umpire  sub-proc 

Procedure  Eend 

Mtxt$="       END  End:  ends  game.  " 

Mtxt$=Mtxt$+"No:  no  auto  logout.  " 

Mtxt$=Mtxt$+"Yes:  with  auto  logout." 

Alert  2,Mtxt$,0,"END  NO  YES", A 

If  A=2  Then 
T$=T$+"NO  " 

Endif 

If  A=3  Then 
T$=T$+"YES  " 

Endif 

Clr  A 

Return 
i 

1  Umpire  sub-proc 

Procedure  Ccopy 

@Copy ( " " , *Copy_return$ ) 

If  Instr(Copy_return$,"all_cop")>0 

T$=T$+"ALL" 
Endif 
If  Instr (Copy_return$ , "blue_cop" )>0 

T$=T$+"BLUE" 
Endif 
If  Instr (Copy_return$ , "orange_cop" )>0 

T$=T$+"ORANGE" 
Endif 
If  Instr (Copy_return$, "of f_cop")>0 
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T$=T$+"OFF" 
Endif 
Return 

1  Copy  DIOX 

Procedure  Copy (Pre select$,Postse lee t) 

Hidem 

Local 
Screen$ ,Temp$ ,Xm,Ym,Button$ ,Radiol_old$ ,Radio2_old$ ,Radio3_old$ ,Radio4_old$ , - 
Radio5_old$ , Radiol_new$ , Radio2_new$ , Radio3_new$ , Radio4_new$ , Radio 5_new$ , S tat_exi 

Sget  Screen$ 

Print  At(38,6) ;T$ 

Local  All_cop_stat$,All_cop_stat 

Local  Blue_cop_stat$ ,Blue_cop_stat 

Local  Orange_cop_stat$ ,Orange_cop_stat 

Local  Off_cop_stat$ ,Off_cop_stat 

@Drawshapes_copy 

@All_cop(0) 

@Blue_cop(0) 

@Orange_cop(0) 

@Off_cop(0) 

Showm 

Do 

If  Mousek=l 

Mouse  Xm,Ym,Void 

@Find_button_copy (Xm , Ym , *Button$ ) 
If  Button$="all_cop" 
If  All_cop_stat 
@All_cop(0) 

Let  All_cop_stat=False 
Let  All_cop_stat$="" 
Let  Stat_exit=False 
Else 

@All_cop(-l) 
Let  All_cop_stat=True 
Let  All_cop_stat$=llall_cop,, 
Let  Stat_exit=True 
Endif 
Endif 

If  Button$="blue_cop" 
If  Blue_cop_stat 
@Blue_cop(0) 
Let  Blue_cop_stat=False 
Let  Blue_cop_stat$=IIM 
Let  Stat_exit=False 
Else 

@Blue_cop(-l) 
Let  Blue_cop_stat=True 
Let  Blue_cop_stat$="blue_cop" 
Let  Stat_exit=True 
Endif 
Endif 
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If  Button$="orange_cop" 
If  Orange_cop_stat 
@Orange_cop(0) 
Let  Orange_cop_stat=False 
Let  Orange_cop_stat$="" 
Let  Stat_exit=False 
Else 

@Orange_cop(-l) 
Let  Orange_cop_stat=True 
Let  Orange_cop_stat$="orange_cop" 
Let  Stat_exit=True 
Endif 
Endif 

If  Button$="off_cop" 
If  Off_cop_stat 
@Off_cop(0) 

Let  Of f_cop_stat=False 
Let  Off_cop_stat$="" 
Let  Stat_exit=False 
Else 

@Off_cop(-l) 
Let  Off_cop_stat=True 
Let  Off_cop_stat$="off_cop" 
Let  Stat_exit=True 
Endif 
Endif 
Endif 

Exit  If  False 

Exit  If  (Button$="all_cop") 
Exit  If  (Button$="blue_cop") 
Exit  If  (Button$="orange_cop") 
Exit  If  (Button$="off_cop") 
Pause  4 
Loop 
If  Stat_exit 

Temp$=Temp$+" ( "+All_cop_stat$+" ) " 
Temp$=Temp$+"("+Blue_cop_stat$+")" 
Temp$=Temp$+" ( "+Orange_cop_stat$+" ) " 
Temp$=Temp$+"("+Off_cop_stat$+")" 
*Postselect=Temp$ 
Endif 
Do 

@Find_button_copy (Xm , Ym , *Button$ ) 
Exit  If  Stat_exit 
Loop 
Pause  7 
Sput  Screen$ 
Return 
Procedure  Drawshapes_copy 

Box  149,86,471,30 
Return 
Procedure  All_cop(Selected) 
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@Draw_text_in_box( "ALL" ,183 ,  74 , 0,1, 6 , 16 , 1,2, Selected) 

Return 

Procedure  Blue_cop(Selected) 

@Draw_text_in_box( "BLUE" ,256,74,0,1,6,12,1,2, Selected) 

Return 

Procedure  Orange_cop(Selected) 

@D raw_text_in_b ox ( "ORANGE" , 324 , 74 , 0 , 1 , 6 , 4 , 1 , 2 , Selected) 

Return 

Procedure  Off_cop(Selected) 

@Drav_text_in_box( "OFF", 413, 74, 0,1, 6, 16, 1,2, Selected) 

Return 

Procedure  Find_button_copy(X_mouse ,Y_mouse ,Button_selected) 

If  (X_mouse>165)  And  (X_mouse<225)  And  (Y_mouse>64)  And  (Y_mouse<78) 

*Button_selected="all_cop" 

Goto  Found_button_copy 

Endif 

If  (X_mouse>242)  And  (X_mouse<302)  And  (Y_mouse>64)  And  (Y_mouse<78) 

*Button_selected="blue_cop" 

Goto  Found_button_copy 

Endif 

If  (X_mouse>318)  And  (X_mouse<378)  And  (Y_mouse>64)  And  (Y_mouse<78) 

*Button_selected="orange_cop" 

Goto  Found_button_copy 

Endif 

If  (X_mouse>395)  And  (X_mouse<455)  And  (Y_mouse>64)  And  (Y_mouse<78) 

*Button_selected="off_cop" 

Goto  Found_button_copy 

Endif 

*Button_selected="  " 

Found_button_copy : 

Return 
i 

1  Umpire  sub-proc 

Procedure  Rrelocate 

Print  At(35,8);T$ 

Print  At(20,10) ;"Enter  name  of  unit  to  be  relocated:  "; 

Form  Input  5,Fi$ 

i 

Print  At(20,ll) ;Lat_str$; 

@Lat_check 

i 

Print  At (20, 12) ;Long_str$; 
@Long_check 

T$=T$+Upper$(Fi$)+"  "+Upper$(Lat$)+"  "+Upper$(Long$) 
Mtxt$="REL0CATE  relative  to  another  unit?" 
Alert  2,Mtxt$,0,"  YES  NO", A 
If  A=l  Then 

Print  At(20, 14) ; "Relative  to  which  unit?  " ; 

Form  Input  5,Fi$ 

T$=T$+"  RELATIVE  "+Upper$ (Fi$) 
Endif 
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Clr  A 

Return 
i 

1  Umpire  sub-proc 

Procedure  Ttime 

Print  At(37,8);T$ 

Print  At(15, 10) ; "Enter  time  of  game  minute  (10-400  seconds):  "; 

Lolim%=10 

Hilim%=400 

Numlen%=3 

@Number_entry 

T$=T$+Pnum$ 
Return 

1  Umpire  sub-proc 

Procedure  Sset 

Mtxt$="  SET  Fast:  no  output  until...  " 

Mtxt$=Mtxt$+"Normal :  continuous  messages.  " 
Mtxt$=Mtxt$+"Zulu:  time  change." 
Alert  2,Mtxt$,0,"FAST  NORMAL  ZULU" , A 
If  A=l  Then 

T$=T$+"FAST  " 

@Sset_fast 
Endif 
If  A=2  Then 

T$=T$+"NORMAL  " 
Endif 
If  A=3  Then 

TS=T$+"ZULU  " 

@Sset_zulu 
Endif 
Clr  A 
Return 

1  Umpire  sub-proc 

Procedure  Sset_fast 

Print  At(33,8) ;T$ 

Print  At(12, 10) ; "Enter  game  minute  when  output  should  start  (1-999) 

Lolim%=l 

Hilim%=999 

Numlen%=3 

@Number_entry 

T$=T$+Pnum$ 
Return 

1  Umpire  sub-proc 

Procedure  Sset_zulu 

Mtxt$="    SET  ZULU    " 

Alert  2,Mtxt$,0,"  AHEAD   BACK  ",A 

If  A=l  Then 

T$=T$+"AHEAD  " 
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Else 

T$=T$+"BACK  " 

Endif 

Print  At(30,8);T$ 
i 

Print  At(25,10) ;"Enter  hours  (0-23):  " ;    !##  hour  entry 

Lolim%=0 

Hilim%=23 

Numlen%=2 

@Number_entry 

T$=T$+Pnum$ 

i 

Print  At(25,ll) ;"Enter  minutes  (0-59):  ";    !##  minute  entry 

Lolim%=0 

Hilim%=59 

Numlen%=2 

@Number_entry 

T$=T$+"  "+Pnum$ 

Clr  A 

Return 

i 

'  Umpire  sub-proc 

Procedure  Enable_disable 

@F_check 

Print  At(30,Ytext%) ;T$ 

If  Instr(T$,"  DISABLE  ") 

@Minute_entry 

T$=T$+"  " 
Endif 

Print  At(25,Ytext%+2) ; "Enter  equipment  name:  "; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 
i 

1  Umpire  sub-proc 

Procedure  Expend_replenish 

@F_check 

Print  At(30,8) ;T$ 

Print  At (25, 10) ; "Enter  amount  (number):  " ; 

Lolim%=l 

Hilim%=999 

Numlen%=3 

@Number_entry 

T$=T$+Pnum$+"  " 
i 

Print  At (25, 11 ); "Enter  equipment  name:  " ; 
Form  Input  5,Fi$ 
T$=T$+Upper$(Fi$) 
Return 
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###########  Second  level  Procedures  for  FORCE  menu  'A'  items  ############# 

Maneuvers  sub-proc 

Procedure  Ccourse 

Print  At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 

@Course_entry 

Inc  Ytext% 
i 

Mtxt$="  Enter  Course  change...  "   !##  for  alert  box  text 
Alert  2,Mtxt$,l,"N0W  LATER  ",A 
If  A=2  Then 

@Time_entry 
Endif 

Clr  A 
Return 

1  Maneuvers  sub-proc 

Procedure  Sspeed 

Print  At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 

@Speed_entry 

Inc  Ytext% 

Mtxt$="   Enter  Speed  change...  "    !##  for  alert  box  text 
Alert  2,Mtxt$,l,"N0W  LATER  ",A 
If  A=2  Then 

@Time_entry 
Endif 
Clr  A 

Return 

i 

1  Maneuvers  sub-proc 

Procedure  Pproceed 

Alert  2,"  "+T$+" ..." ,0, "COURSE  POSITION",  A 

Print  At(33,Ytext%);T$ 

Ytext%=Ytext%+2 
i 

If  A=l 

@Course_entry 

@Distance_entry 
Endif 
If  A=2 

Print  At(23,Ytext%) ;Lat_str$; 

@Lat_check 

Inc  Ytext% 

Print  At(23,Ytext%) ;Long_str$; 

@Long_check 
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Maneuvers  sub-proc 


it 


Inc  Ytext% 

T$=T$+Upper$(Lat$)+"  "+Upper$(Long$) 
Endif 
Clr  A 

Alert  2,"        select  ...       " ,3,"SPEED  TIME  continue", A 
i 

If  A=l 

@Speed_entry 

@Tc_choice 

Endif 
i 

If  A=2 

@Time_entry 

Endif  . 
i 

Clr  A 

Return 

i 

i 

Procedure  Sstation 

Print  At(33,Ytext%) ;T$ 

Ytext%=Ytext%+2 

@Bearing_entry 

Print  At(33,Ytext%+l);"FR0M  (guide) 

Ytext%=Crslin 

Print  At(22,Ytext%) , -"Enter  name  of  addressee  (unit) 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

@Distance_entry 

@Tc_choice 
Return 

1  Maneuvers  sub-proc 

Procedure  Ssearch 

@Show_cmd 

Print  At(28,Ytext%) ; "Enter  name  of  plan:  " ; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

@Tc_choice 

Return 
i 

1  Maneuvers  sub-proc 

Procedure  Uuse 

Print  At(33,Ytext%) ;T$ 

Inc  Ytext% 

Inc  Ytext% 

Print  At(28,Ytext%) ;"Enter  name  of  plan:  "; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 
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Maneuvers  sub-proc 


@Use_time_choice 

Return 
i 

i 

Procedure  Eexecute 

Print  At(33,Ytext%);T$ 

Inc  Ytext% 

Inc  Ytext% 

Print  At(22,Ytext%) ; "Enter  name  of  contingency  plan:  "; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

@Tc_choice 
Return 

Sensors  sub-proc 
Activate/Silence  sub-sub  procedure 
Note:  Activate  &  Silence  have  own  menus. 

Procedure  Eemitter 
@Show_cmd 

Alert  2,"        select  ...       ",3,"TIME  <name>  continue", A 
If  A=l 

@Time_entry 
Endif 
If  A=2 

Print  At(27,Ytext%) ; "Enter  name  of  emitter:  "; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
Endif 
Clr  A 

Return 

i 

i 

Procedure  Ssurvsat 
@Show_cmd 
Mtxt$="   "+T$+"   " 

Print  At(25,Ytext%) ; "Enter  name  of  Survsat 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Inc  Ytext% 

Print  At(28,Ytext%) ;"Enter  force  name:  "; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

i 

@Cclear_middle 

@Show_cmd 

Alert  2, Mtxt$,0, "ORBITAL  STATNARY",A 

If  A=l 

T$=T$+"  ORBITAL  " 
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Activate/Silence  sub-sub  procedure 


@Show_cmd 

Cstr$="From  latitude:  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Lat_check 

T$=T$+Upper$(Lat$) 

Cstr$=Cstr$+Upper$(Lat$)+"   To  latitude:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Lat_check 

T$=T$+"  "+Upper$(Lat$) 


Endif 
i 

If  A=2 

T$=T$^ 

@Show_ 

@Time_ 

Endif 
i 

-"  STATIONARY" 

.cmd 

.entry 

Clr  A 

Return 

i 

i 

• 

Sensors  sub-proc 
Procedure  Jjam 
@Show_cmd 

Print  At(28,Ytext%) ;"Enter  radar  name:  " ; 
Form  Input  5,Fi$ 
T$=T$+"  "+Upper$(Fi$) 

Return 

i 

1  Sensors  sub-proc 

Procedure  Ccease 

Cstr$="Cease  jamming  radar" 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc  Ytext% 

Inc  Ytext% 

Alert  2,"        select  ...       ",3,"TIME  name  continue" ,A 

If  A=l 

@Time_entry 
Endif 
If  A=2 

Print  At(27,Ytext%) ; "Enter  name  of  radar:  "; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

Endif 

Clr  A 

Return 
i 


Procedure  Eemcon 
@Show_cmd 

Print  At(28,Ytext%) ;"Enter  plan  name 
Form  Input  5,Fi$ 
T$=T$+"  "+Upper$(Fi$) 
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Sensors  sub-proc 


Mtxt$="   EXEMPT  any  units?  " 

Emc  : 

@Cclear_middle 

Alert  2,Mtxt$,0,"  Yes   No", A 

If  A=l 

T$=T$+"  EXEMPT" 

Cstr$="EXEMPT  which  unit?:  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

Mtxt$="   EXEMPT  more  units?  " 

@Show_cmd 

Goto  Emc 
Endif 

Clr  A 

Return 

i 

1  Engage  sub-proc 

Procedure  Ffire 

@Show_cmd 

Print  At(19,Ytext%) ; "Enter  number  of  weapons  to  fire  (1-99):  " ; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

@Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

i 

Print  At(15,Ytext%) ; "Enter  name  of  weapon;  TLAM,  MK48,  HRPOM,  etc 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$)+"  " 

Ytext%=Crslin 

@Cclear_middle 

@Show_cmd 

Mtxt$="    "+T$+"    " 

Alert  2, Mtxt$,0, "NUCLEAR  CRUISE  TORPEDO", A 

If  A=l 

T$=T$+"NUCLEAR  " 

@Show_cmd 

Mtxt$=MtXt$+"NUCLEAR  " 

Alert  2,Mtxt$,0,"CRUISE  TORPEDO", B 

Endif 
i 

If  A=2  Or  B=l 
T$=T$+"CRUISE  " 
@Show_cmd 
Mtxt$=Mtxt$+" CRUISE  missiles  " 

Alert  2,Mtxt$,0,"AT  BEARING", C 
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If  C=l 

T$=T$+"AT  " 

Cstr$="at  which  shorebase?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Ytext%=Crslin 

@Show_cmd 

Endif 
i 

If  C=2 

T$=T$+"BEARING  " 

Ytext%=Ytext%+2 

@Bearing_entry 

@Show_cmd 

Mtxt$=Mtxt$+"   BEARING  "+Pnum$ 

Alert  2,Mtxt$,0,"  DELAY   RANGE  ",D 

@Cclear_middle 

If  D=l 

T$=T$+"  DELAY  " 
Cstr$="delay. . .  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
@Minute_entry 
@Shov/_cmd 
Endif 

If  D=2 

T$=T$+"  RANGE" 
Cstr$="range. . ." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Ytext%=Ytext%+2 
@Distance_entry 
@Show_cmd 
Endif 
Endif 
Endif 

If  A=3  Or  B=2 

T$=T$+"TORPEDOES  " 

@Show_cmd 

Cstr$="at  track  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

(§Track_entry 

Ytext%=Crslin 

Endif 

Clr  A,B,C,D 

@Cclear_middle 

Return 
i 

1  Engage  sub-proc 

Procedure  Llaunch 

103 


Mtxt$="    "+T$ 

Alert  2,Mtxt$+"...   " ,0 , "NUCLEAR  CRUISE  aircraft", A 

If  A=l 

T$=T$+"NUCLEAR  " 

A=2 

Endif 
i 

If  A=2 

T$=T$+"CRUISE  " 

@Show_cmd 

Cstr$="Enter  number  of  missiles  to  fire  (1-99):  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

@Number_entry 

T$=T$+Pnum$ 

Ytext%=Crslin 

Cstr$="Enter  name  of  missile:  " 

Print  At(39-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$)+"  " 

@Cclear_middle 

@Shov/_cmd 

@Cruise_menu 

Lcl :         !##  used  to  return  from  Cruise_menu_read 

Ytext%=8 

If  Bar$(Menu(0))="  BOL" 

T$=T$+"B0L  BEARING  " 

@Show_cmd 

@Bearing_entry 

T$=T$+"  RANGE" 

Cstr2$="seeker  on..." 

@Cclear_middle 

@Show_cmd 

Ytext%=8 

Print  At(40-Int(Len(Cstr2$)/2) ,Ytext%) ;Cstr2$ 

Ytext%=Ytext%+2 

@Distance_entry 

T$=T$+"  RANGE" 

Cstr2$="seeker  off. . ." 

@Cclear_middle 

@Show_cmd 

Ytext%=8 

Print  At(40-Int(Len(Cstr2$)/2) ,Ytext%) ;Cstr2$ 

Ytext%=Ytext%+2 

@Distance_entry 
Endif 

If  Bar$(Henu(0))="  PL2" 
T$=T$+"PL2  POSITION  " 
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@Llaunch_entry 
Endif 

If  Bar$(Menu(0))="  PL3" 
T$=T$+"PL3  POSITION  " 
@Llaunch_entry 

Endif 

If  Bar$(Menu(0))=M  PLTWO" 
T$=T$+"PLTWO  POSITION  " 
@Llaunch_entry 

Endif 

i 

If  Bar$(Menu(0))=M  PLTHREE  " 
T$=T$+"PLTHREE  POSITION  " 
@Llaunch_entry 

Endif 

If  Bar$(Menu(0))="  TLAM" 

T$=T$+"TLAM  AT  " 

Cstr$="at  which  shorebase?  " 

@Llaunch_entry_l 

@Llaunch_entry_2 
Endif 
Endif 


If  A=3 

@Ac_ 

launch 

Endif 
i 

Clr  A 

@Show_ 

cmd 

©Force 

_menu_a 

Return 

i 

i 

ENGAGE  sub- sub  proc 
Procedure  Llaunch_entry 
@Show_cmd 

Cstr$="position. . ." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc  Ytext% 
Inc  Ytext% 

Print  At(23,Ytext%);Lat_str$; 
@Lat_check 
Inc  Ytext% 

Print  At(23,Ytext%);Long_str$; 
@Long_check 
Inc  Ytext% 

T$=T$+Upper$(Lat$)+"  "+Upper$(Long$)+"  " 
@Show_cmd 
@Cclear_middle 
Cstr$="Orientation:  " 
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Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc  Ytext% 
Inc  Ytext% 

@Bearing_entry 

i 

@Show_cmd 

@Cclear_middle 

Cstr$=Cstr$+Pnum$+"   Semimajor  axis:  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc  Ytext% 

Inc  Ytext% 

@Distance_entry 
i 

@Show_cmd 

@Cclear_middle 

Cstr$=Cstr$+Pnum$+"   Semiminor  axis:  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc  Ytext% 

Inc  Ytext% 

@Distance_entry 

@Show_cmd 
@Cclear_middle 
Cstr$=Cstr$+Pnum$ 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
@Llaunch_entry_2 
Return 

1  ENGAGE  sub- sub  proc 

Procedure  Llaunch_entry_l 

@Cclear_middle 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

@Show_cmd 

@Cclear_middle 
Return 

1  ENGAGE  sub- sub  proc 

Procedure  Llaunch_entry_2 

Alert  2,"  Waypoints  desired?  ",2,"  Yes   No", A 

N%=0 

If  A=l 

@Cclear_middle 

Ytext%=4   !##  higher  on  screen  than  normal  to  allow  many  waypoints 

Waypt : 


Inc  N°- 


o 

o. 


Inc  Ytext 

Print  At(35,Ytext%);"Waypoint  ";N 

Inc  Ytext% 

Print  At(23,Ytext%);Lat_str$; 

(?Lat_check 
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Inc  Ytext% 

Print  At(23,Ytext%) ;Long_str$; 

@Long_check 

Inc  Ytext% 

Mtxt$="  WAYPOINT  "+Str$(N%)+"  "+Upper$ (Lat$)+"  "+Upper$(Long$) 

T$=T$+Mtxt$ 

Dec  Ytext% 


Dec  Ytext% 

Print  At(20,Ytext%);Spc(40) 

Inc  Ytext% 

Print  At(20,Ytext%);Spc(40) 


Dec  Ytext^ 


Dec  Ytext% 

Print  At(30,Ytext%) ;Mtxt$ 

Alert  2,"  Another  waypoint?  ",2,"  Yes   No",B 

If  B=l 

Goto  Waypt 

Endif 
Endif 
Clr  A,B 

Return 

i 

1  Take  sub-menu 

Procedure  Ttake 
Mtxt$="    "+T$ 

Alert  2,Mtxt$+" ...   ", 0, "track  #  Base", A 
If  A=l 

@Show_cmd 

Cstr$="Enter  track  number  (ie,  AB1234) :  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 
Endif 

If  A=2 

T$=T$+"BASE  " 

@Shov;_cmd 

Cstr$="Base  name.-  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 
Endif 

@Show_cmd 

Htxt$=M  "+T$ 

Alert  2,Mtxt$+"  using. . . " ,0, "NUCLEAR  CONVENTL  either" ,B 

If  B=l 

T$=T$+"  NUCLEAR" 
Endif 
If  B=2 

T$=T$+"  CONVENTIONAL" 
Endif 
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@Cclear_middle 
@Tc_choice 
Clr  A,B 

@Cclear_middle 
Return 

1  ###########  Second  level  Procedures  for  FORCE  menu  'B'  items  ############# 

i 

1  AIRCRFT  sub-menu 

Procedure  Ac_launch 
Menu  Kill 

Aclaunch!=True   !##  Set  when  Launch  sequence  is  called;  used  to  allow 
1  !##  individual  use  of  Load  &  Mission  procs  &  A/C  Command  menu. 


@Show_cmd 

Cstr$="How  many  aircraft?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 

Hilim%=99 

Numlen%=2 

@Number_entry 

T$=T$+Pnum$ 
i 

@Show_cmd 

@Cclear_middle 

Cstr$="Type  of  aircraft?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
i 

@Show_cmd 

@Cclear_middle 

Cstr$="Event  name?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$)+"  " 

@Show_cmd 

Alert  2,"  Collective  name. .." ,0, "  Yes   No", A 

If  A=l 

(§Cclear_middle 

Cstr$="Collective  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

@Show_cmd 

Alert  2,"    select  ...    ",0,"  LEADER  MEMBER",B 

If  B=l 

T$=T$+"  LEADER  " 

A=2 
Endif 
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If  B=2 

T$=T$+"  MEMBER" 

Inc  Ytext% 

@Tc_choice 

Endif 

Endif 
i 

If  A=2 

@Cclear_middle 

Inc  Ytext% 

@Course_entry 

@Speed_entry 

T$=T$+"  " 

@Altitude_entry 

Endif 
i 

Clr  A,B 

@Shov7_cmd 
@Ac_load 
Return 

1  AIRCRFT  sub-menu  item 

Procedure  Ac_load 
@Cclear_middle 
If  Aclaunch!    !##  ensures  'LOAD'  occurs  only  once  in  T$ 

Cstr$="  LOAD" 
Endif 

N%=0    !##  set  item  counter 
Acload: 

Mtxt$="Enter  the  equipment  LOAD    (up  to  8  items)." 
Alert  2,"  "+Mtxt$,0,"   LOAD   End  Load", A 
If  A=l 

Mtxt$="LOAD  how  many  of  this  item?  (1-99):  " 

Print  At(39-Int(Len(Mtxt$)/2),Ytext%) ;Mtxt$; 

Lolim%=l 

Hilim%=99 

Numlen%=2 

@Number_entry 

Cstr$=Cstr$+"  "+Pnum$ 

i 

Mtxt$="  " 

Print  At(37-Int(Len(Mtxt$)/2) ,Ytext%) ;Mtxt$; 

Mtxt$="LOAD  "+Pnum$+"  (name  of  item?):  " 

Print  At(37-Int(Len(Mtxt$)/2),Ytext%);Mtxt$; 

Form  Input  5,Fi$ 

Cstr$=Cstr$+"  "+Upper$(Fi$) 

Mtxt$="  " 

Print  At(37-Int(Len(Mtxt$)/2) ,Ytext%) ;Mtxt$; 

Dec  Ytext% 

Dec  Ytext% 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
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Inc  Ytext^ 


Inc  Ytext% 

Inc  N% 

If  N%<8    !##  allows  only  8  different  items 

Goto  Acload 

Endif 

Endif 
i 

T$=T$+Cstr$+"  "   !##  Cstr$  is  the  Load  command  string 

@Show_cmd 

Clr  A 

If  Aclaunch!    !  is  True  if  Launch  sequence  is  being  used. 
@Mission_menu 

Endif 

Return   !@Ac_load 

i 

1  AIRCRFT  sub-menu  item 

Procedure  Aalert 

@Show_cmd 

N%=1 

Cstr$="Status  for  what  aircraft  type?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

Aalert: 

@Cclear_middle 
@Show_cmd 
If  N%=1 

Cstr$="How  many  at  5  minute  alert?  " 
Endif 
If  N%=2 

Cstr$="How  many  at  15  minute  alert?  " 
Endif 
If  N%=3 

Cstr$="How  many  at  30  minute  alert?  " 

Endif 
i 

Inc  N% 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=0 

Hilim%=99 

Numlen%=2 

@Number_entry 

T$=T$+"  "+Pnum$ 

If  N%<4 

Goto  Aalert 
Endif 

Alert  2,"   Ordnance...  ",2,"  Yes   No", A 
If  A=l 
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Cstr$="Enter  ordnance  (max  24  text  characters):  " 

Print  At(32-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  24,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
Endif 
Clr  A 
Return 

1  AIRCRFT  sub-menu  item 

Procedure  Hhandover 

@Show_cmd 

Cstr$="Flight  name:  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 

@Cclear_middle 

@Show_cmd 

Cstr$="To...  (force  name):  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
Return 

'  AIRCRFT  sub-menu  item 

Procedure  Oorbit 

@Show_cmd 

Cstr$="Enter  radius  (1-9999  nmi) :  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Lolim%=l 

Hilim%=9999 

Numlen%=4 

@Number_entry 

T$=T$+"  "+Pnum$ 
i 

For  N%=1  To  2 
@Cclear_middle 
(§Show_cmd 

Cstr$="Position  ll+Str$(N%)  +  "  :  " 
Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc  Ytext% 

Print  At(23,Ytext%);Lat_str$; 
@Lat_check 

Inc  Ytext% 

Print  At(23,Ytext%) ;Long_str$; 

@Long_check 

T$=T$+"  "+Upper$(Lat$)+"  M+Upper$(Long$) 
Ytext%=Ytext%-2 
Next  N% 

@Cclear_middle 
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@Show_cmd 

Alert  2," 
i 

If  A=l 

T$=T$+"  SPEED" 
@Speed_entry 

@Tc_choice 
Endif 

If  A=2 

@Time_entry 

Endif 
i 

Clr  A 
Return 


select  .  . . 


,3, "SPEED  TIME  continue", A 


1  AIRCRFT  Fit  Cmds  sub-menu  item 

Procedure  Aattach 

@Show_cmd 

Cstr$="...to  collective  flight  (name?):  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 


@Show_cmd 
Alert  2," 


select  . 


,0,"  LEADER  MEMBER", A 


If  A=l 

T$=T$+"  LEADER" 

Endif 

i 

If  A=2 

T$=T$+"  MEMBER" 

Endif 
i 

@Cclear_middle 

@Tc_choice 

Clr  A 

Return 
i 


AIRCRFT  Fit  Cmds  sub-menu  item 


Procedure  Bbarrier 
@Show_cmd 

Cstr$="From  position..." 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 
Inc  Ytext% 
Inc  Ytext% 

Print  At(23,Ytext%);Lat_str$; 
@Lat  check 


Inc  Ytext% 

Print  At(23,Ytext%) ;Long_str$; 
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@Long_check 

i 

T$=T$+"  "+Upper$(Lat$)+"  "+Upper$(Long$)+"  " 


i 


@Cclear_middle 
@Show_cmd 
@Bearing_entry 
Inc  Ytext% 
@Distance_entry 

@Cclear_middle 

@Show_cmd 

Cstr$="Using?  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+"  "+Upper$(Fi$) 
i 

@Cclear_middle 

@Show_cmd 

Cstr$="Spacing?  " 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 


Inc 

Ytext% 

Inc 

Ytext% 

@Distance_ent 

i 

ry 

Inc 

Ytext% 

@Tc_ 

_choice 

Return 
i 

1  AIRCRFT  Fit  Cmds  sub-menu  item 

Procedure  Cchaff 

@Show_cmd 

Cstr$="Barrier" 

Print  At(40-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

Inc  Ytext% 

(§Minute_entry 

Inc  Ytext% 

@Tc_choice 

Return 
i 

1  AIRCRFT  Fit  Cmds  sub-menu  item 

Procedure  Ccover 

@Show_cmd 

Cstr$="Which  track  number?  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Track_entry 

@Shov7_cmd 

Alert  2,"        select  ...       " ,3 , "DISTANCE  TIME  continue", A 

If  A=l 
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Inc  Ytext% 
@Distance_entry 
@Tc_choice 
Endif 

If  A=2 

@Time_entry 

Endif 
i 

Clr  A 
Return 


Procedure  Ddeploy 
@Show_cmd 
Alert  2," 


select  . . . 


AIRCRFT  Fit  Cmds  sub-menu  item 


",0,"   BUOY   WIRE",A 


If  A=l 

T$=T$+"BUOY  " 

@Show_cmd 

Cstr$="Buoy  name :  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 
Endif 

If  A=2 

T$=T$+"WIRE" 

@Show_cmd 

@Time_entry 
Endif 


Clr  A 

Return 

i 

i 

Procedure  Rreconn 

@Show_cmd 

Mtxt$="   "+T$ 

Alert  2,Mtxt$+"...   ",0, "track  #  Base", A 

If  A=l 

Cstr$="Enter  track  number  (ie,  AB1234) :  " 
Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
@Track_entry 

Endif 


AIRCRFT  Fit  Cmds  sub-menu  item 


If  A=2 

T$=T$+"BASE  " 

@Show_cmd 

Cstr$="Base  name:  " 

Print  At(37-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

Form  Input  5,Fi$ 
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T$=T$+Upper$(Fi$) 
@Show_cmd 

@Time_entry 

Endif 

Clr  A 

Return 
i 

1  AIRCRFT  Fit  Cmds  sub-menu  item 

Procedure  Rrefuel 

(?Show_cmd 

Cstr$="Refueler  name:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

@Show_cmd 

@Time_entry 

Return 

i 

1  AIRCRFT  Fit  Cmds  sub-menu  item 

Procedure  Tturn 

@Show_cmd 

@Course_entry 

@Shov_cmd 

@Time_entry 

Return 
i 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Aair 

@Show_cmd 

Cstr$="REPORT  Air  tracks  every..." 

Print  At(38-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

@Minute_entry 

Inc  Ytext% 

@Tc_choice 
Return 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Eesm 

@Show_cmd 

Cstr$="REPORT  ESM  tracks  every..." 

Print  At(38-Int(Len(Cstr$)/2),Ytext%);Cstr$; 

(?Minute_entry 

Inc  Ytext% 

@Tc_choice 

Return 

i 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Oon 

@Show_cmd 

Cstr$="REPORT  On  circuit  number" 

Cstr2$=Cstr$+"  :  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr2$; 
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Lolim%=l 
Hilim%=9999 
Numlen%=4 
@Number_entry 

T$=T$+Pnum$ 

@Show_cmd 

i 

Cstr$="REPORT  On  circuit  number  "+Pnum$+"  or  :  " 
Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Lolim%=l 

Hilim%=9999 
Numlen%=4 
@Number_entry 
T$=T$+"  "+Pnum$ 

@Show_cmd 

i 

Alert  2,"   Violate  EMCON?  ",0,"  Yes   No" ,A 
If  A=l 

T$=T$+"  YES" 
Endif 
If  A=2 

T$=T$+"  NO" 
Endif 
Clr  A 

Inc  Ytext% 

@Tc_choice 
Return 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Pposition 

@Show_cmd 

Cstr$="REPORT  Position  &  logistics  every..." 

Print  At(41-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

@Minute_entry 

Inc  Ytext% 

@Tc_choice 
Return 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Ssurface 

@Show_cmd 

Cstr$="REP0RT  Surface  tracks  every..." 

Print  At(41-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$ 

@Minute_entry 
Return 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Tttime 

@Show_cmd 

Print  At(26,Ytext%) ; "Enter  start  minute  (1-999):  " ; 

Lolim%=l 
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Hilim%=999 
Numlen%=3 
@Number_entry 
T$=T$+"TIME  "+Pnum$ 
Return 

1  AIRCRFT  Fit  Cmds  REPORT  sub-menu  item 

Procedure  Uusing 

@Show_cmd 

Cstr$="REPORT  Using  what  policy?:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Inc  Ytext% 

@Tc_choice 
Return 


COMMS  sub-menu  item 


Procedure  Ccommtext 
@Show_cmd 

Cstr$="Using  what  path?:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Form  Input  5,Fi$ 
T$=T$+Upper$(Fi$)+' 
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@Show_cmd 

@Cclear_middle 

Cstr$="To  which  receiver?:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$)+"  » 


Yes   No", A 


Ccomtxt : 

@Show_cmd 

@Cclear_middle 

Alert  2,"  Another  receiver?  ",0, 

If  A=l  Then 

Cstr$="Enter  receiver  name.  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$)+"  " 

Goto  Ccomtxt 
Endif 
Clr  A 
I%=8 


@Text_entry 
Return 


!##  common  Comms  text  entry 


COMMS  sub-menu  item 


Procedure  Eembark 
@Show_cmd 
Cstr$="Enter  force  name 
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Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 
Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

i 

@Show_cmd 

Alert  2,"    On  what  platform?   ",0,"  Orange  Blue  continue", A 

If  A=l  Then 

T$=T$+"  ORANGE  " 
Endif 
If  A=2  Then 

T$=T$+"  BLUE  " 

Endif 

Clr  A 
i 

@Show_cmd 

@Cclear_middle 

Cstr$="Enter  view  number:  " 

Print  At(37-Int(Len(Cstr$)/2) ,Ytext%) ;Cstr$; 

Form  Input  5,Fi$ 

T$=T$+Upper$(Fi$) 

Return 
i 

1  ########################################################################### 

1  END  of  Program 

1  tt###tt#####tt############tt#######tt#tt########tttt#####tt################tt######## 
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APPENDIX  B 

RESA  Interface  Program  User's  Guide 
This  appendix  is  a  simple  guide  to  facilitate  use  of  the 
RESA  Interface  Program  (RIP) .   To  effectively  use  this  guide, 
some  familiarity  with  RESA  is  necessary,  as  no  attempt  to 
define  RESA  commands  is  made  herein. 

The  starting  screen  display  will  provide  the  Main  Menu, 
one  of  the  three  primary  control  menus.   The  other  two  are: 
Force  Menu  A  and  Force  Menu  B.   Access  to  each  primary  menu 
is  available  from  each  other  primary  menu  using  the  "new 
Menu"  menu  bar  selection. 


Main  $ 


new  Menu 


ASTAB   GRAPHICS   COMMS   UMPIRE 


FORCE  Menu  A  $  naneuvers  |  sensors  I  engagements 
FORCE  Menu  B  $  aircraft  |  subnarines  |  force  cows 


\ 


CANCEL  connand 
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Orders  are  "built"  by  successively  selecting  menu 
headings  and  using  the  "mouse"  to  select  desired  commands. 
As  commands  are  selected,  the  RIP  may  ask  for  additional  data 
or  second-level  commands.  Appropriate  secondary/tertiary 
menus  will  be  displayed  as  needed. 


Weapons^  I   M1MM 

TIGHT 

Air 

Surface 

Subnarine 

All 

Eneny 

Nuclear 

\ 

Cofw&fttiofta] 

CANCEL  connand 


FOR  KITTV 


EXECUTE  comand 
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Make  a  specific  choice  from  the  screen  or  a  secondary 
menu,  or  to  use  the  keyboard  to  enter  alpha-numeric 
characters.  Considerable  error-checking  is  performed  if  the 
keyboard  is  used. 

Force  ft      new  Menu     FOR  xxx      MANEUVERS     SENSORS      ENGAGE 


FOR  KITTV  PROCEED 

Enter  course  [8-359*  True) :  234 
Enter  distance  or  range  CI-9999  mi):  5678 
Enter  speed  CI-9999  kts) : 


CANCEL  connand  | for  kittv  j  EXECUTE  [onnjn(j 

FOR  KITTV  PROCEED  234  5678  888  f 


Dini«Mn<niJ*ywn-a 
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If  a  command  is   supposed  to  be  preceded  by  a  force 
addressee,  an  "alert  box"  will  appear  and  request  it. 

Force  B$      new  Menu     FOR  xxx    EUiUilUI    SUBMRINE      COMMS 


CANCEL  connand 


This  connand  requires 
an  addressee  (unit). 


nn 


\ 


irmmmm 


EXECUTE  termed 


9* 


KM 
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As  they  are  being  built,  orders  are  displayed  in  a 
command  box  at  the  bottom  of  the  screen.  When  an  order  is 
syntactically  correct,  the  user  is  given  the  choice  to 
Execute  or  Cancel  it.  Execution  or  Cancellation  of  non- 
completed  orders  is  not  allowed. 

Main  cO     new  henu       ASTAB       GRAPHICS       COMMS      UMPIRE 


CANCEL  connand 


Etmmnmi 


EXECUTE  connand 


SSWfcSM 


CAMEL  connand 

■  ■in  ■mill  inning 
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The    following    are    examples    of   what  commands    are    displayed 

whenever    certain   menu    bar   headings    are  selected. 

I .    MAIN   Menu    Selections 

Main  $     new  Menu    1M1    GRAPHICS      COMHS       UMPIRE 


Bearing 

Classify 

CPA 

Designate 

Drop 

Print 

Show 


\ 


CANCEL  connand 


EXECUTE  connand 


Main  $     new  Menu       ASTAB    ■flMflai    COMMS       UMPIRE 


CANCEL  connand 


Plot 

Erase 

Center 

Radius 

Shift 

Label 

LOB 

Mark  track 

Mark  bearing 

Unnark  track 

Unnark  bearing 

Place 

Cancel 


\ 


124 


Plot  $  new  Menu 


AH 

Blue 

Orange 

Own 

Boundaries 

Chaff 

LOB 

Regions 

Rivers 

Sonobuoy 

Speed 

Survsat 

PIM 

Track 

Station 


CANCEL  connand 


\ 


wmm*atasgttRtnm 


EXECUTE  connand 


wawwa-tatarna 


Main  $  new  Menu   ASTAB   GRAPHICS  HI  UMPIRE 


CANCEL  connand 


EXECUTE  connand 
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Main  $  new  Menu   ASTAB   GRAPHICS   COMMS  111 


CANCEL  connand 


EXECUTE  connand 
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II.  FORCE  Menu  A  Selections 


Force  A$       new  Menu  ■iliEM    MAHEUUERS     SENSORS       ENGAGE 


Select  unit 


\ 


EXECUTE  connand 
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Force  A$   new  Menu  FOR  xxx  ■MM!  SENSORS   ENGAGE 


Course 
Speed 
Proceed 
Station 
Search 
USE  (plan) 
Execute  (plan) 
Enter  Orders 
Pending  Orders 
Cancel 


\ 


CANCEL  connand 


,n»»  mawMMWiinirai 


EXECUTE  connand 


Force  A$       new  Henu     FOR  xxx      MANEUUERS  BffllllHi    ENGAGE 


Activate 
Silence 
Blip  on 

Blip  off 
DECM  on 

DECM  off 
RBOC  on 

RBOC  off 
Jan 
Cease 
Eric  on 


>t 


CANCEL  connand 


EXECUTE  connand 
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Force  ft       new  Menu     FOR  xxx       MANEUUERS     SENSORS    M 


uiii 


EXECUTE  conmnd 


Cruise  $      node 


CANCEL  connand 


WAVPOINT  1  12S  134E 


Another  waypoint? 


res 


t 


FOR  KITTV 


EXECUTE  connand 


FOR  KITTV  LAUNCH  CRUISE  2  REETS  TLfiH  AT  PETRO 
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III.    FORCE   Menu    B    Selections 


Force  BO      new  Menu     FOR  xxx    KUiffiUfl    SUBHRIHE       COMMS 


Launch 

Flight  Cuds 

Alert 

Close 

Handover 

Open 

Orbit 

Recall 

Recover 


\ 


CANCEL  conn and 


EXECUTE  connand 


MMHKBa 
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Force  BO       new  Menu     FOR  xxx    K11MM    SUBMRINE       COWS 


LOAD  12  HRPON 


Enter  the  equipnent  LOAD 
(up  to  8  itens), 


CANCEL  connand 


IT]  I  End  Load 


FOR  KITTV 


EXECUTE  conrisnd 


rwammttniwii 


FOR  KITTV  LAUNCH  12  F14A  TEAL  345  458  28688 


Fit  Cnd$ 


D  -  R 


S  -  Z 


Activate 

Altitude 

Attach 

Barrier 

Bingo 

Cease 

Chaff 

Course 

Cover 


\ 
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Force  B$      new  Menu     FOR  xxx       AIRCRFT    BUM 


COMMS 


Depth 

Surface 

Periscope 

Fire 

Hode 

Mast 

Deploy 

Retrieve 


\ 


CANCEL  connand 


EXECUTE  connand 


Force  B$   new  Menu  FOR  xxx   AIRCRFT   SUBMRIHE  EMM 


Conntext 
Enbark 
Report 
Circuit 


\ 


CANCEL  connand 


*** 


EXECUTE  conned 


miKmrnsmmm 
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